Moin,
ich versuche gerade eine Seitenüberschrift beim Ausdruck vom PDF-Dateien zu drucken, aber es kommt nichts!
Quellcode:
// z.B. für Beispiel für dynamisches Drucken von PDF'S
procedure PrintPDF(APrinterIndex: Integer; AFileName: String; APrintTitle: String);
var
vForm: TForm;
vWpViewPDF: TWPViewPDF;
begin
vForm := TForm.Create(nil);
vForm.Visible := False;
vWpViewPDF := TWPViewPDF.Create(vForm);
vWpViewPDF.Parent := vForm;
try
vWpViewPDF.filename := AFileName;
vWPViewPDF.BeginPrint(Printer.Printers[APrinterIndex]);
vWpViewPDF.CommandStr(COMPDF_SetPrintTitle, APrintTitle); // Hierum geht's: COMPDF_SetPrintTitle !!!
vWPViewPDF.PrintPages(1, vWpViewPDF.PageCount);
vWPViewPDF.EndPrint;
finally
FreeAndNil(vWpViewPDF);
FreeAndNil(vForm);
end;
end;
Was mache ich falsch?
...und gibt es evtl. ein paar Delphi-DEMOs, die sich mit der Drucksteuerung beschäftigen (z.B. Umschalten auf A3-Druck, bin-Ansteuerung, in Druckbereich einpassen etc.).
Heute habe ich Ihr Beispiel aus dem Handbuch Seite 145 (Kapitel 6.7.2) eingegeben...als Ausdruck kommt auch nur eine leere Seite!
VG
Bernd