Displaying 1 result from an estimated 1 matches for "begindoc".
Did you mean:
begincol
2007 Mar 19
1
Delphi applications printing bug
...Page 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(Sender: TObject);
begin
with Printer do
begin
BeginDoc;
Canvas.TextOut(100, 100, 'Test');
EndDoc;...