Zitat Zitat von PX Beitrag anzeigen
Ich habe sie angesehen und ausprobiert, dann habe ich nach einer genaueren Anweisung gefragt, aber leider keine bekommen. Irgendwie hat es nicht funktioniert.
Ernsthaft? Ich hätte nicht gedacht das du das nicht hinbekommst. Binde einfach "Printers" als unit ein und dann kannst du das hier probieren:

Code: 
Printer.Title := 'Test Document';
Printer.BeginDoc;
// Jetzt ein paar Canvas Samples
Printer.Canvas.TextOut(100, 100, 'This is a test!');
Printer.Canvas.Font.Style := [fsBold];
Printer.Canvas.TextOut(150, 400, 'Fett');
Printer.Canvas.Ellipse(200, 200, 250, 300);
// Und drucken:
Printer.EndDoc;
Benutzt wird der Standard-Drucker. Getestet mit Delphi 7 und PDFCreator als Standard-Drucker. Hier mal das Ergebnis: http://npshare.de/files/35/9626/Test%20Document.pdf