Процедура тестКонструктор () Экспорт
	Параметры = СоздатьОбъект ("ТабличныйДокумент.ПараметрыПечати");
	ПроверитьРавенство (Параметры.Ориентация, 0);
	ПроверитьРавенство (Параметры.ПолеСлева, 100);
	ПроверитьРавенство (Параметры.ПолеСверху, 100);
	ПроверитьРавенство (Параметры.ПолеСправа, 100);
	ПроверитьРавенство (Параметры.ПолеСнизу, 100);
	ПроверитьРавенство (Параметры.АвтоМасштаб, 0);
	ПроверитьРавенство (Параметры.ИмяПринтера, "");
	ПроверитьРавенство (Параметры.КоличествоКопий, 1);
	ПроверитьРавенство (Параметры.Масштаб, 100);
КонецПроцедуры

//-----------------------------------------------------------------------------

Процедура тестОриентация () Экспорт
	Параметры = СоздатьОбъект ("ТабличныйДокумент.ПараметрыПечати");
	Параметры.Ориентация = 1;
	ПроверитьРавенство (Параметры.Ориентация, 1);
	Параметры.Ориентация = 2;
	ПроверитьРавенство (Параметры.Ориентация, 2);
	Параметры.Ориентация = 0;
	ПроверитьРавенство (Параметры.Ориентация, 0);
	
	ВсеНормально = 0;
	Попытка
		Параметры.Ориентация = -2;
	Исключение
		ВсеНормально = 1;
	КонецПопытки;
	
	Проверить (ВсеНормально);
	
	ВсеНормально = 0;
	Попытка
		Параметры.Ориентация = 3;
	Исключение
		ВсеНормально = 1;
	КонецПопытки;
	
	Проверить (ВсеНормально);
КонецПроцедуры

//-----------------------------------------------------------------------------

Процедура тестПолеСлева () Экспорт
	Параметры = СоздатьОбъект ("ТабличныйДокумент.ПараметрыПечати");
	Параметры.ПолеСлева = 15;
	ПроверитьРавенство (Параметры.ПолеСлева, 15);
	Параметры.ПолеСлева = 20;
	ПроверитьРавенство (Параметры.ПолеСлева, 20);
	
	ВсеНормально = 0;
	Попытка
		Параметры.ПолеСлева = -10;
	Исключение
		ВсеНормально = 1;
	КонецПопытки;
	
	Проверить (ВсеНормально);
КонецПроцедуры

//-----------------------------------------------------------------------------

Процедура тестПолеСверху () Экспорт
	Параметры = СоздатьОбъект ("ТабличныйДокумент.ПараметрыПечати");
	Параметры.ПолеСверху = 15;
	ПроверитьРавенство (Параметры.ПолеСверху, 15);
	Параметры.ПолеСверху = 20;
	ПроверитьРавенство (Параметры.ПолеСверху, 20);
	
	ВсеНормально = 0;
	Попытка
		Параметры.ПолеСверху = -10;
	Исключение
		ВсеНормально = 1;
	КонецПопытки;
	
	Проверить (ВсеНормально);
КонецПроцедуры

//-----------------------------------------------------------------------------

Процедура тестПолеСправа () Экспорт
	Параметры = СоздатьОбъект ("ТабличныйДокумент.ПараметрыПечати");
	Параметры.ПолеСправа = 15;
	ПроверитьРавенство (Параметры.ПолеСправа, 15);
	Параметры.ПолеСправа = 20;
	ПроверитьРавенство (Параметры.ПолеСправа, 20);
	
	ВсеНормально = 0;
	Попытка
		Параметры.ПолеСправа = -10;
	Исключение
		ВсеНормально = 1;
	КонецПопытки;
	
	Проверить (ВсеНормально);
КонецПроцедуры

//-----------------------------------------------------------------------------

Процедура тестПолеСнизу () Экспорт
	Параметры = СоздатьОбъект ("ТабличныйДокумент.ПараметрыПечати");
	Параметры.ПолеСнизу = 15;
	ПроверитьРавенство (Параметры.ПолеСнизу, 15);
	Параметры.ПолеСнизу = 20;
	ПроверитьРавенство (Параметры.ПолеСнизу, 20);
	
	ВсеНормально = 0;
	Попытка
		Параметры.ПолеСнизу = -10;
	Исключение
		ВсеНормально = 1;
	КонецПопытки;
	
	Проверить (ВсеНормально);
КонецПроцедуры

//-----------------------------------------------------------------------------

Процедура тестАвтоМасштаб () Экспорт
	Параметры = СоздатьОбъект ("ТабличныйДокумент.ПараметрыПечати");
	Параметры.АвтоМасштаб = 1;
	ПроверитьРавенство (Параметры.АвтоМасштаб, 1);
	Параметры.АвтоМасштаб = 0;
	ПроверитьРавенство (Параметры.АвтоМасштаб, 0);
КонецПроцедуры

//-----------------------------------------------------------------------------

Процедура тестИмяПринтера () Экспорт
	Параметры = СоздатьОбъект ("ТабличныйДокумент.ПараметрыПечати");
	Параметры.ИмяПринтера = "П1";
	ПроверитьРавенство (Параметры.ИмяПринтера, "П1");
	Параметры.ИмяПринтера = "П2";
	ПроверитьРавенство (Параметры.ИмяПринтера, "П2");
КонецПроцедуры

//-----------------------------------------------------------------------------

Процедура тестКоличествоКопий () Экспорт
	Параметры = СоздатьОбъект ("ТабличныйДокумент.ПараметрыПечати");
	Параметры.КоличествоКопий = 4;
	ПроверитьРавенство (Параметры.КоличествоКопий, 4);
	Параметры.КоличествоКопий = 6;
	ПроверитьРавенство (Параметры.КоличествоКопий, 6);
	
	ВсеНормально = 0;
	Попытка
		Параметры.КоличествоКопий = -2;
	Исключение
		ВсеНормально = 1;
	КонецПопытки;
	
	Проверить (ВсеНормально);
КонецПроцедуры

//-----------------------------------------------------------------------------

Процедура тестМасштаб () Экспорт
	Параметры = СоздатьОбъект ("ТабличныйДокумент.ПараметрыПечати");
	Параметры.Масштаб = 70;
	ПроверитьРавенство (Параметры.Масштаб, 70);
	Параметры.Масштаб = 130;
	ПроверитьРавенство (Параметры.Масштаб, 130);
	
	ВсеНормально = 0;
	Попытка
		Параметры.Масштаб = -20;
	Исключение
		ВсеНормально = 1;
	КонецПопытки;
	
	Проверить (ВсеНормально);
КонецПроцедуры

//-----------------------------------------------------------------------------

Процедура тестПечататьСкрытыеСтрокиКолонки () Экспорт
	Параметры = СоздатьОбъект ("ТабличныйДокумент.ПараметрыПечати");
	Параметры.ПечататьСкрытыеСтрокиКолонки = 1;
	ПроверитьРавенство (Параметры.ПечататьСкрытыеСтрокиКолонки, 1);
	Параметры.ПечататьСкрытыеСтрокиКолонки = 0;
	ПроверитьРавенство (Параметры.ПечататьСкрытыеСтрокиКолонки, 0);
КонецПроцедуры
