Печать в файл (prn)
Проблема: не происходит печать в файл PRN.
Действия:
1. В диалоге печати выбираю принтер и ставлю галочку "печать в файл".
2. Возникает диалог сохранения, где указываю имя файла и куда класть.
3. Нажимаю кнопку "ОК".
4. ... печати в файл не происходит, а происходит обычная печать документа на принтере...
Возможные причины:
Сначала я думал, что мой косяк. Поэтому поставил breakpoint в модуле "frxPrintDialog" в классе "TfrxPrintDialog" в начале метода "FormHide". Как видно было в дебаге в свойство "frxPrinters.Printer.FileName" действительно заносился путь и имя моего, указанного, файла PRN.
После чего я в своей форме подписался на событие "TfrxReport.frxReportProgressStart" и от туда хотел получить указанный мной путь к файлу PRN:
Самое интересное, что адрес "frxPrinters.Printer", имя принтера и т.д. были те же самые, что я увидел в методе "FormHide" класса "TfrxPrintDialog".
P.S. Если я опять что-то не так делаю, то "не бейте".
Действия:
1. В диалоге печати выбираю принтер и ставлю галочку "печать в файл".
2. Возникает диалог сохранения, где указываю имя файла и куда класть.
3. Нажимаю кнопку "ОК".
4. ... печати в файл не происходит, а происходит обычная печать документа на принтере...
Возможные причины:
Сначала я думал, что мой косяк. Поэтому поставил breakpoint в модуле "frxPrintDialog" в классе "TfrxPrintDialog" в начале метода "FormHide". Как видно было в дебаге в свойство "frxPrinters.Printer.FileName" действительно заносился путь и имя моего, указанного, файла PRN.
После чего я в своей форме подписался на событие "TfrxReport.frxReportProgressStart" и от туда хотел получить указанный мной путь к файлу PRN:
var
Printer: TfrxCustomPrinter;
begin
if ProgressType = ptPrinting then
begin
Printer := frxPrinters.Printer;
if Printer.FileName <> '' then
...
end;
... и там я увидел пустую строку Самое интересное, что адрес "frxPrinters.Printer", имя принтера и т.д. были те же самые, что я увидел в методе "FormHide" класса "TfrxPrintDialog".
P.S. Если я опять что-то не так делаю, то "не бейте".