Ich habe mal Folgendes in Printers.pas eingebaut:
Delphi-Quellcode:
procedure NewPage;
procedure BeginNewPage;
procedure EndNewPage;
...
[PrintingPermission(SecurityAction.LinkDemand, Level=PrintingPermissionLevel.AllPrinting)]
procedure TPrinter.NewPage;
begin
CheckPrinting(True);
EndPage(
DC);
StartPage(
DC);
Inc(FPageNumber);
Canvas.Refresh;
end;
[PrintingPermission(SecurityAction.LinkDemand, Level=PrintingPermissionLevel.AllPrinting)]
procedure TPrinter.BeginNewPage;
begin
StartPage(
DC);
Inc(FPageNumber);
Canvas.Refresh;
end;
[PrintingPermission(SecurityAction.LinkDemand, Level=PrintingPermissionLevel.AllPrinting)]
procedure TPrinter.EndNewPage;
begin
CheckPrinting(True);
EndPage(
DC);
end;
Leider erhalte dabei die Fehlermeldung:
[dcc32 Fataler Fehler]
Vcl.Printers.pas(1550): F2613
Unit '
Vcl.Dialogs' nicht gefunden.