FoxClub Forums > Visual Foxpro, Foxpro for DOS > Как подружить VFP9 c BullZip PDF Printer ? ::

• Войти

Как подружить VFP9 c BullZip PDF Printer ?
TiAmAT Автор Сообщений: 231 Дата регистрации: 23.07.2008	TiAmAT 17.12.17 01:18:20 Доброго времени суток! Товарищи, поделитесь опытом! Либо посоветуйте пожалуйста альтернативный принтер печати отчётов в файл. Исправлено 1 раз(а). Последнее : TiAmAT, 17.12.17 01:18

Re: Как подружить VFP9 c BullZip PDF Printer ?
of63 Сообщений: 25256 Откуда: Н.Новгород Дата регистрации: 13.02.2008	of63 17.12.17 01:58:11 Тиамат (древнеегипетское что-то...). А что не получается? - Установила драйвер принтера, - в Word на этом печатается - из фокса REPORT FORM не печатается - (PDF файл не образуется) ? (ступил) Исправлено 1 раз(а). Последнее : of63, 17.12.17 03:32

Re: Как подружить VFP9 c BullZip PDF Printer ?

of63

Сообщений: 25256
Откуда: Н.Новгород
Дата регистрации: 13.02.2008

of63

17.12.17 01:58:11

Тиамат (древнеегипетское что-то...).
А что не получается?
- Установила драйвер принтера,
- в Word на этом печатается
- из фокса REPORT FORM не печатается
- (PDF файл не образуется)
?

(ступил)

Исправлено 1 раз(а). Последнее : of63, 17.12.17 03:32

Re: Как подружить VFP9 c BullZip PDF Printer ?
Vladimir Sklyar Сообщений: 1397 Дата регистрации: 13.06.2002	Vladimir Sklyar 17.12.17 12:31:35 lcDir = "z:\ereport\"-ALLTRIM(lcFileName) PRINTJOB SET PRINTER TO NAME "Bullzip PDF Printer" bzSettings = CreateObject("Bullzip.PDFPrinterSettings") WITH bzSettings .Init() .RemoveSettings(.t.) .SetValue("Output", lcDir) .SetValue("ShowPdf","no") .SetValue("ShowSettings","never") .SetValue("ShowProgress","no") .SetValue("RememberLastFileName", "no") .SetValue("RememberLastFolderName", "no") .SetValue("ShowProgressFinished","no") .WriteSettings(.t.) lcDir = "" lcFileName = "" ENDWITH REPORT FORM ....... TO PRINTER RELEASE bzSettings SET PRINTER TO DEFAULT ENDPRINTJOB ------------------ С уважением Владимир.

Re: Как подружить VFP9 c BullZip PDF Printer ?

Vladimir Sklyar

Сообщений: 1397
Дата регистрации: 13.06.2002

Vladimir Sklyar

17.12.17 12:31:35


    lcDir = "z:\ereport\"-ALLTRIM(lcFileName)
    PRINTJOB
        SET PRINTER TO NAME "Bullzip PDF Printer"
        bzSettings = CreateObject("Bullzip.PDFPrinterSettings")
        WITH bzSettings        
            .Init()
            .RemoveSettings(.t.)
            
            .SetValue("Output", lcDir)
            .SetValue("ShowPdf","no")
            .SetValue("ShowSettings","never")
            .SetValue("ShowProgress","no")
            .SetValue("RememberLastFileName", "no")
            .SetValue("RememberLastFolderName", "no")        
            .SetValue("ShowProgressFinished","no")

            .WriteSettings(.t.)
            
            lcDir = ""
            lcFileName = ""            
        ENDWITH  

        REPORT FORM ....... TO PRINTER 

        RELEASE bzSettings
        SET PRINTER TO DEFAULT   
    ENDPRINTJOB

------------------
С уважением Владимир.

Re: Как подружить VFP9 c BullZip PDF Printer ?
Равиль Сообщений: 6555 Откуда: Уфа Дата регистрации: 01.08.2003	Равиль 17.12.17 19:17:55 Vladimir Sklyar lcDir = "z:\ereport\"-ALLTRIM(lcFileName) ... Неожиданно ... и если например в понедельник западает клавиша, то фокс поймет и простит Clear m.lc1 = "123" m.lc2 = "456" ? m.lc1 + m.lc2 ? m.lc1 - m.lc2 ! ? m.lc1 -- m.lc2 && это не проходит ! ? m.lc1 +- m.lc2 && и это ! зато ! : ? m.lc1 -+ m.lc2 ? m.lc1 ++ m.lc2 && Fox++ какой-то )) ------------------ Тяжело согнать курсором муху с монитора ...

Re: Как подружить VFP9 c BullZip PDF Printer ?

Равиль

Сообщений: 6555
Откуда: Уфа
Дата регистрации: 01.08.2003

Равиль

17.12.17 19:17:55

Vladimir Sklyar



    lcDir = "z:\ereport\"-ALLTRIM(lcFileName)
    ...

Неожиданно ... и если например в понедельник западает клавиша, то фокс поймет и простит


Clear

m.lc1 = "123"
m.lc2 = "456"

? m.lc1 + m.lc2
? m.lc1 - m.lc2

*!* ? m.lc1 -- m.lc2 && это не проходит
*!* ? m.lc1 +- m.lc2 && и это
*!* зато ! :

? m.lc1 -+ m.lc2
? m.lc1 ++ m.lc2 && Fox++ какой-то ))

------------------
Тяжело согнать курсором муху с монитора ...

Re: Как подружить VFP9 c BullZip PDF Printer ?
Vladimir Sklyar Сообщений: 1397 Дата регистрации: 13.06.2002	Vladimir Sklyar 17.12.17 19:34:44 Равиль Неожиданно ... и если например в понедельник западает клавиша, то фокс поймет и простит непонял ------------------ С уважением Владимир.

Re: Как подружить VFP9 c BullZip PDF Printer ?
Равиль Сообщений: 6555 Откуда: Уфа Дата регистрации: 01.08.2003	Равиль 17.12.17 19:52:13 я про знак "минус" - в твоем коде : Цитата: lcDir = "z:\ereport\"-ALLTRIM(lcFileName) честно не знал, что так можно )) ну и другие знаки сложения )) ------------------ Тяжело согнать курсором муху с монитора ...

Re: Как подружить VFP9 c BullZip PDF Printer ?
TiAmAT Автор Сообщений: 231 Дата регистрации: 23.07.2008	TiAmAT 17.12.17 20:56:09 Vladimir Sklyar lcDir = "z:\ereport\"-ALLTRIM(lcFileName) PRINTJOB SET PRINTER TO NAME "Bullzip PDF Printer" bzSettings = CreateObject("Bullzip.PDFPrinterSettings") WITH bzSettings .Init() .RemoveSettings(.t.) .SetValue("Output", lcDir) .SetValue("ShowPdf","no") .SetValue("ShowSettings","never") .SetValue("ShowProgress","no") .SetValue("RememberLastFileName", "no") .SetValue("RememberLastFolderName", "no") .SetValue("ShowProgressFinished","no") .WriteSettings(.t.) lcDir = "" lcFileName = "" ENDWITH REPORT FORM ....... TO PRINTER RELEASE bzSettings SET PRINTER TO DEFAULT ENDPRINTJOB да, натыкался на подобный код, но как и в этот раз, у меня он не сработал. Что же происходит: отправляю на печать, задание попадает на реальный физический принтер HP. Там эта задание стопориться и на печать не идёт, при этом его можно запросто удалить из очереди.

Re: Как подружить VFP9 c BullZip PDF Printer ?

TiAmAT
Автор

Сообщений: 231
Дата регистрации: 23.07.2008

TiAmAT

17.12.17 20:56:09

Vladimir Sklyar


    lcDir = "z:\ereport\"-ALLTRIM(lcFileName)
    PRINTJOB
        SET PRINTER TO NAME "Bullzip PDF Printer"
        bzSettings = CreateObject("Bullzip.PDFPrinterSettings")
        WITH bzSettings        
            .Init()
            .RemoveSettings(.t.)
            
            .SetValue("Output", lcDir)
            .SetValue("ShowPdf","no")
            .SetValue("ShowSettings","never")
            .SetValue("ShowProgress","no")
            .SetValue("RememberLastFileName", "no")
            .SetValue("RememberLastFolderName", "no")        
            .SetValue("ShowProgressFinished","no")

            .WriteSettings(.t.)
            
            lcDir = ""
            lcFileName = ""            
        ENDWITH  

        REPORT FORM ....... TO PRINTER 

        RELEASE bzSettings
        SET PRINTER TO DEFAULT   
    ENDPRINTJOB

да, натыкался на подобный код, но как и в этот раз, у меня он не сработал. Что же происходит: отправляю на печать, задание попадает на реальный физический принтер HP. Там эта задание стопориться и на печать не идёт, при этом его можно запросто удалить из очереди.

Re: Как подружить VFP9 c BullZip PDF Printer ?
Vladimir Sklyar Сообщений: 1397 Дата регистрации: 13.06.2002	Vladimir Sklyar 17.12.17 21:11:35 попробуй снять галку Save Environment в св-вах репорта ------------------ С уважением Владимир. Исправлено 1 раз(а). Последнее : Vladimir Sklyar, 17.12.17 21:11

Re: Как подружить VFP9 c BullZip PDF Printer ?
TiAmAT Автор Сообщений: 231 Дата регистрации: 23.07.2008	TiAmAT 17.12.17 21:21:57 Vladimir Sklyar попробуй снять галку Save Environment в св-вах репорта есть контакт! Благодарю!

Re: Как подружить VFP9 c BullZip PDF Printer ?
Igor Korolyov Сообщений: 34580 Дата регистрации: 28.05.2002	Igor Korolyov 17.12.17 22:11:07 Равиль я про знак "минус" - в твоем коде msdn.microsoft.com ------------------ WBR, Igor

:: Список Форумов•Список тем•Поиск•Войти

Извините, только зарегистрированные пользователи могут оставлять сообщения в этом форуме.

On-line: 48 shumik73 (Гостей: 47)