&НаКлиенте
Функция ИмяПринтераRDP(ИмяПринтера) 
	Shell = Новый COMОбъект("Wscript.Shell");	
	Task = Shell.Exec("query session");
	РезультатЗапроса = Task.StdOut.ReadAll();
	РезультатЗапроса = Декодер(РезультатЗапроса, "windows-1251", "cp866");
        Task.Terminate();
	Shell = Неопределено;
	
	Network = Новый COMОбъект("WScript.Network");
	ПользовательОС = Network.UserName();
	Network = Неопределено;
	
        НомерСеанса = RegExpGetFirstMatch("rdp-tcp\S+\s+" + ПользовательОС + "\s+(\d+)", РезультатЗапроса);
	
	Возврат ИмяПринтера + " (перенаправлено " + НомерСеанса + ")";
	
КонецФункции


Функция Декодер(Стр, Вход, Выход)
	Stream = Новый COMОбъект("Adodb.Stream");
	Stream.Type = 2;
	Stream.Mode = 3;
	Stream.Charset = Вход;
	Stream.Open();
	Stream.WriteText(Стр);
	Stream.Position = 0;
	Stream.Charset = Выход;
	Результат = Stream.ReadText(-1);
	Stream.Close();
	Возврат Результат;
КонецФункции

Функция RegExpGetFirstMatch(Маска, Строка, МногострочныйРежим = Истина, ГлобальныйПоиск = Истина, БезУчетаРегистра = Истина) 
	
	RegExp = Новый COMОбъект("VBScript.RegExp");
	
	// Параметры
	RegExp.Multiline = МногострочныйРежим; 
	RegExp.Global = ГлобальныйПоиск;
	RegExp.IgnoreCase = БезУчетаРегистра;	
	RegExp.Pattern = Маска;	
	
	Matches = RegExp.Execute(Строка);
	
	Если Matches.Count = 1 тогда
		Возврат Matches.Item(0).SubMatches.Item(0);

	Иначе
		Возврат Неопределено;
			
	КонецЕсли;
		
КонецФункции

   

 
//Таб - ТабличныйДокумент
//ИмяФайла – путь для сохранения файла PDF  (например «D:\Torg12.pdf»)
Процедура СоздатьФайлПДФ(Таб, ИмяФайла)

Попытка
ПДФПринтер = Новый ComObject(«Bullzip.PDFPrinterSettings»);
ПДФПринтер.SetValue(«output», ИмяФайла);
ПДФПринтер.SetValue(«ShowSaveAS», «never»);
ПДФПринтер.SetValue(«ShowProgress», «no»);
ПДФПринтер.SetValue(«ShowProgressFinished», «no»);
ПДФПринтер.SetValue(«ShowSettings», «never»);
ПДФПринтер.SetValue(«ShowPDF», «no»);
ПДФПринтер.SetValue(«ConfirmOverwrite»,»no»);
ПДФПринтер.WriteSettings();
Таб.Автомасштаб = Истина;
Таб.ИмяПринтера = «Bullzip PDF Printer»;Таб.Напечатать(Истина);
PDFФайл = Новый Файл(ИмяФайла);

Пока НЕ PDFФайл.Существует() Цикл
ОбработкаПрерыванияПользователя();
КонецЦикла;

Исключение

Сообщить(ОписаниеОшибки());
Сообщить(«Скорее всего необходимо установить или переустановить «»Bullzip PDF Printer»);
КонецПопытки;
//устанавливаем принтер по умолчанию
Таб.ИмяПринтера = ПолучитьПринтерПоУмолчанию();
КонецПроцедуры   

 //получаем принтер по умолчанию
Функция ПолучитьПринтерПоУмолчанию()

Скрипт = Новый ComObject(«MSScriptControl.ScriptControl»);
Скрипт.Language = «vbscript»;
Скрипт.AddCode(»
|Function GetDefaultPrinter()
|GetDefaultPrinter=vbNullString
|Set objWMIService=GetObject(«»winmgmts:»" _
|& «»{impersonationLevel=impersonate}!\\.\root\cimv2″»)
|Set colInstalledPrinters=objWMIService.ExecQuery _
|(«»S_elect * from Win32_Printer»")
|For Each objPrinter in colInstalledPrinters
|If objPrinter.Attributes and 4 Then
|GetDefaultPrinter=objPrinter.Name
|Exit For
|End If
|Next
|End Function»);
Возврат СокрЛП(Скрипт.run(«GetDefaultPrinter»));
КонецФункции