1.
* ==================================================================================
* Вывод в файл *.PDF через формирование PDF принтером Bullzip (PDF--->File)
* ==================================================================================
me=APRINTERS(_MassPrinters,1) && Установленные принтеры
IF !EMPTY(me)
* поиск Bullzip
FOR i=1 TO Alen(_MassPrinters,1)
IF UPPER("BioPDF")$UPPER(_MassPrinters(i,2)) OR UPPER("Bullzip")$UPPER(_MassPrinters(i,2))
NamePrinter=_MassPrinters(i,1)
PortPrinter=_MassPrinters(i,2)
EXIT
ENDIF
ENDFOR
IF i>Alen(_MassPrinters,1)
DO FORM VMessage WITH "Принтер BullZip для печати в PDF не установлен в Windows!!!",7
*PARAMETERS _TextMessage,_Second,_OkRow,_OkCol
* _TextMessage - Текст в Caption
* _Second - Кол-во секунд до Release() или PressAnyKey,
* _OkRow,_OkCol - Координаты вивода Form [строка,столбик]
ThisForm.Execute.PrintFile.SetFocus
RETURN
ENDIF
ELSE
DO FORM VMessage WITH "Нет установленных принтеров!!!",7
RETURN
ENDIF
* Вывод в PDF: Взято с Примера в https://www.sql.ru/forum/foxpro
PRINTJOB
me="CREATEOBJECT('"+PortPrinter+".PDFPrinterSettings')"
BzSettings=&me
WITH BzSettings
.RemoveSettings(.T.)
.SETVALUE("Output",FullFilePrint)
.SETVALUE("ShowPdf","No")
.SETVALUE("ShowSettings","Never")
.SETVALUE("ShowProgress","No")
.SETVALUE("ShowProgressFinished","No")
.WriteSettings(.T.)
ENDWITH
SET PRINTER TO &NamePrinter
PrintReport="REPORT FORM "+_NameReport+" TO Printer "+_RANGE+" "+"NoConsole"
&PrintReport
SET PRINTER TO DEFAULT
RELEASE BzSettings
ENDPRINTJOB
*===================================================================================
* В Windows 7 - Работает
* В Windoqs 10 - Нет: Пытается выводить на Printer Default
* BullZip установлен и находится до PrintJob
*
* Подскажите, Спасибо!

2. Обычный Report Form ... Range BegNlist,EndNList
* ========================
* Вывод в файл / Просмотр
* ========================
* Хочется чтобы:
* Report .. Range ... PreView - Выводил заданные страницы в окне предварительного просмотра
* Report .. Range ... To Printer PreView - Выводил заданные страницы в окне предварительного просмотра
*
* Подскажите, Спасибо!