Displaying 1 result from an estimated 1 matches for "tprintersetupdialog".
2007 Mar 19
1
Delphi applications printing bug
...s ("doesn't
work" meens that nothing is encoded in the printing spool... and the
only error that is shown is "fixme:psdrv:PSDRV_EndPage Already ended a
page?")
Ie, this code works both under Windows and Wine:
procedure TForm1.Button2Click(Sender: TObject);
var SetupDialog: TPrinterSetupDialog;
begin
SetupDialog:= TPrinterSetupDialog.Create(Application);
SetupDialog.Execute;
with Printer do
begin
BeginDoc;
Canvas.TextOut(100, 100, 'Test');
EndDoc;
end;
end;
...while this code works only under Windows:
procedure TForm1.Button1Click(Se...