Ich möchte einen Briefkopf als Hintergrund zusammen mit darüber gedrucktem Text ausdrucken. Quelle für den Text ist das DevExpress Printing System. Das funktioniert auch Alles prima bis auf den Hintergrund.
Die Hintergrunddateien liegen mir als PDF, EMF oder BMP Datei vor.
Kann man das einfach realisieren und wenn ja wie ?
Meine Codierung für die PDF Erzeugung ohne Hintergrund ist:
Code
Function TFWPDF.CreatePDF (FN : String) : Boolean;
Var
I,W,H,Res : Integer;
Begin
Result := FileErase(FN);
If Result Then Result := Not FileExists(FN);
If Result Then
Begin
Application.ProcessMessages;
CP.RebuildReport(Nil);
PDF.Filename := FN;
PDF.Modes := [wpClipRectSupport,wpAlwaysHighResPDF];
PDF.BeginDoc;
Dateiname := '';
Try
For I := 0 To CP.GetPageCount - 1 Do
Begin
With CP.CurrentLink.RealPrinterPage Do
Begin
Res := Screen.PixelsPerInch;
W := MulDiv(PageSizePixels.X,res,100);
H := MulDiv(PageSizePixels.Y,res,100);
{ Prüfung of Quer oder Hochformat}
If W > H Then
Begin { Querformat DIN A4}
h := Round(21/2.54*res);
w := Round(29.7/2.54*res);
End
Else
Begin { Hochformat DIN A4 }
w := Round(21/2.54*res);
h := Round(29.7/2.54*res);
End;
PDF.StartPage(W,H,Res,Res,0);
CP.PaintPage(PDF.Canvas,I,Rect(0,0,W,H),PaintRectPixels);
End;
PDF.EndPage;
End;
Dateiname := FN;
Finally
PDF.EndDoc;
End;
End;
Application.ProcessMessages;
End;
Alles anzeigen