в Silentmode запрашивает параметры печати
Добрый день.
Хочу печать чеки в тихом режиме.
Сделал таймер со следующим кодом:
Вот настройка отчета:
Имя принтера указывается:
При проработке кода, вываливается запрос с параметрами печати, почему то.
Подскажите что делать?
Хочу печать чеки в тихом режиме.
Сделал таймер со следующим кодом:
CheckTimer.Enabled := false;
qOrders.Open;
try
while not qOrders.Eof do begin
Log.LogFormatted('Печатаю чек №%d ..', [qOrdersid.AsInteger]);
try
// frxReport.PrepareReport(true);
frxReport.Print;
qOrders.Edit;
qOrderscheck_printed.AsDateTime := Now;
qOrders.Post;
except
on E: Exception do
Log.E(E.Message);
end;
qOrders.Next;
end;
finally
qOrders.Close;
CheckTimer.Enabled := true;
end;
Вот настройка отчета:
object frxReport: TfrxReport
Version = '4.15'
DotMatrixReport = False
EngineOptions.SilentMode = True
EngineOptions.NewSilentMode = simSilent
IniFile = '\Software\Fast Reports'
OldStyleProgress = True
PreviewOptions.Buttons = [pbPrint, pbLoad, pbSave, pbExport, pbZoom, pbFind, pbOutline, pbPageSetup, pbTools, pbEdit, pbNavigator, pbExportQuick]
PreviewOptions.Zoom = 1.000000000000000000
PrintOptions.Printer = 'Default'
PrintOptions.PrintOnSheet = 0
PrintOptions.ShowDialog = False
ReportOptions.CreateDate = 41596.574012500000000000
ReportOptions.LastChange = 41610.436726377300000000
ScriptLanguage = 'PascalScript'
StoreInDFM = False
Left = 152
Top = 168
end
Имя принтера указывается:
for i := 0 to Printer.Printers.Count - 1 do begin
Log.LogFast('Найден принтер: ' + Printer.Printers[i], LOG_INFO);
if pos(config['printer'], Printer.Printers[i]) > 0 then begin
frxReport.PrintOptions.Printer := Printer.Printers[i];
Log.LogFast('Выбранный принтер:' + frxReport.PrintOptions.Printer);
end;
end;
При проработке кода, вываливается запрос с параметрами печати, почему то.
Подскажите что делать?
Комментарии
Попробуйте установить в коде перед вызовом Print, возможно, это свойство где-то сбрасывается