this.Object.DataWindow.Export.PDF.Method = Distill!
		this.Object.DataWindow.Printer = "Bullzip PDF Printer" 
		this.Object.DataWindow.Export.PDF.Distill.CustomPostScript="Yes"
		
		OleObject o
		o = create OleObject
		
		li_ret = o.ConnectToNewObject("Bullzip.PDFPrinterSettings") 
		if li_ret <> 0 then
			MessageBox('Внимание!', 'Не установлен Bullzip PDF Printer!')
			return
		end if
		
		o.SetValue( "printerName","Bullzip PDF Printer")
		o.SetValue( "Output", ls_pathname)
		o.SetValue( "ConfirmOverwrite", "no") 
		o.SetValue( "ShowSaveAS", "never" )
		o.SetValue( "ShowSettings", "never" )
		o.SetValue( "ShowPDF", "no" )
		o.SetValue( "RememberLastFileName","no" )
		o.SetValue( "RememberLastFolderName", "no" )
		o.WriteSettings( True )
		
		this.print(false, false)
		
		o.DisconnectObject( )
		destroy o;