ich habe ein Problem mit dem Drucken. Ich benutzte Lazarus, neueste Version unter Windows 10.
Das Testprogramm unter https://programmindex.de/begindoc-enddoc/
Funktioniert wunderbar bei PDF-Druckern.
Bei einem Drucker (OfficeJet Pro 7740) wird zwar ein Druckauftrag erstellt, bekommt aber den Status "Fehler - wird Gedruckt".
Ich habe noch ein zusätzlich zu dem Testprogramm den PrintDialog-Dialog mit eingebunden
Code: Alles auswählen
if Printdialog1.execute then begin
Printer.BeginDoc;
//Bestücke die virtuelle Leinwand
Printer.Canvas.Font.Name := 'Courier New';
Printer.Canvas.Font.Size := 10;
Printer.Canvas.Font.Color := clBlack;
Printer.Canvas.TextOut(
20, 20, 'Dies ist unser erster gedruckter Text.');
//Beende das Bestücken der Leinwand und
//starte das Drucken
Printer.EndDoc;
end;