FireMonkey / Delphi 12 - Drucken auf PDF geht, auf den Drucker nicht

[JeanLuc7]

Salut,
ich bin nach vielen Jahren wieder in Delphi (12) eingestiegen und habe eine uralte Windows-3.x-Applikation als Firemonkey-App neu geschrieben. Es geht da um mathematische Graphiken im 2D- und 3D-Raum, Sinuskurven, Kugeln, sowas. Sie soll dereinst unter macOS und Windows laufen; akltuell teste ich aber nur unter Windows 11 24H2.

Die Applikation ist fast fertig, aber das Drucken bereitet mir Probleme. Derzeit mache ich es mir noch sehr einfach - ich erzeuge ein Bitmap der Graphik und will es auf dem Drucker ausgeben - also nichts hochauflösendes oder vektorbasiertes. Ich folge dabei dem Beispiel, das in der Online-Hilfe dargestellt ist. Ich kann in ein PDF drucken - dort sieht alles so aus, wie es soll. Wenn ich hingegen direkt den Drucker wähle (ein hp Color laserjet Pro MFP M283fdn - nichts Besonderes), wird in der Windows-11-Druckerqueue der Druckauftrag angezeigt, und auch die kleine Vorschau, die W11 zeigt, ist korrekt. Aber es endet mit einem "Error", der innerhalb der Druckerqueue angezeigt wird. In meiner Applikation bekomme ich davon nichts mit. Das erzeugte PDF lässt sich problemlos drucken.

Letztlich macht mein Code genau dies:

Code:

var
  SrcRect, DestRect: TRectF;
begin
  { Set the default DPI for the printer. The SelectDPI routine defaults
    to the closest available resolution as reported by the driver. }
  Printer.ActivePrinter.SelectDPI(1200, 1200);
  { Start printing. }
  Printer.BeginDoc;
 
  if Printer.Canvas.BeginScene then
  try
    { Set canvas filling style. }
    Printer.Canvas.Fill.Color := claBlack;
    Printer.Canvas.Fill.Kind := TBrushKind.Solid;
 
    { Set the Source and Destination TRects. }
    SrcRect := Image1.LocalRect;
    DestRect := TRectF.Create(0, 0, Printer.PageWidth, Printer.PageHeight);
 
    { Print the picture on all the surfaces of the page and all opaque. }
    Printer.Canvas.DrawBitmap(Image1.Bitmap, SrcRect, DestRect, 1);
  finally
    Printer.Canvas.EndScene;
  end;
 
  { Finish printing job. }
  Printer.EndDoc;
end;

Der Codeschnipsel stammt hierher: https://docwiki.embarcadero.com/RADS...ey_Application

"Image1" ist bei mir das TBitmap, das ich vorher von meiner Grafik angefertigt habe. Das hat die Größe des Fensters (ca. 1000x600). Es ist ok, lässt sich speichern und ansehen.

Nun nutze ich TPrinter zum ersten Mal und kann nicht ausschließen, dass ich Parameter falsch setze.

Ich habe auch noch nicht herausgefunden, wie man den druckbaren Bereich ermittelt - denn mit Printer.PageWidth und Printer.PageHeight bekommt man die physische Seitengröße und nicht den tatsächlich bedruckbaren Bereich.

Weiß jemand, was ich falsch mache?

Beste Grüße
JL7

[Delphi.Narium]

Funktioniert der Druck auf den HP-Drucker aus anderen Programmen oder der Ausdruck einer Testseite, wenn nein würde ich den Fehler eher außerhalb Deines Programmes vermuten:

Druckauftragsdetails prüfen:
Rechtsklick auf den Druckauftrag in der Druckerwarteschlange → „Eigenschaften“ oder „Details“, häufig werden dort ausführlichere Fehlermeldungen angezeigt.

Windows-Ereignisanzeige überprüfen:
Windows-Taste + R → „eventvwr.msc“ eingeben → OK.
Unter „Windows-Protokolle“ → „Anwendung“ und „System“ suche nach Fehlern zum Zeitpunkt des Druckversuchs, dort finden sich eventuell HP-Treiber- oder Druckerspooler-Fehler mit mehr Details.

HP Druckerdiagnose-Tools nutzen:
HP stellt für viele Modelle ein Diagnosetool (HP Print and Scan Doctor) zur Fehleranalyse und Reparatur bereit,dieses Tool scannt Treiber, Verbindungsprobleme, Druckspooler und weitere Komponenten.

Druckertreiber neu installieren oder aktualisieren:
Einen aktuellen Treiber direkt von der HP-Webseite fürs Modell herunterladen und installieren. Vorher den vorhandenen Treiber deinstallieren und ggf. im Geräte-Manager „Treiber löschen“ wählen. Dies behebt eventuell Fehler durch beschädigte oder inkompatible Treiber.

Druckspooler-Dienst prüfen und neustarten:
Windows-Taste + R → „services.msc öffnen“ → „Druckwarteschlange“ suchen → Rechtsklick „Neu starten“, eventuell hilft auch ein Löschen der Druckerwarteschlange (alle Aufträge entfernen).

Protokollierung aktivieren:
Über die Druckerverwaltung oder Treibereinstellungen kann eventuell eine Protokollierung aktiviert werden, dadurch werden genauere Logs erzeugt, die mehr Aufschluss über Fehler geben könnten.

Keine Ahnung ob irgendwas davon hilfreich sein könnte.

[JeanLuc7]

Danke für die schnelle Antwort. Für mich sieht das auch eher wie ein Treiber- denn ein FMX-Problem aus. Drucken aus anderen Anwendungen heraus funktioniert allerdings - auch mein eigenes PDF kann ich problemlos (aus Firefox heraus) drucken. Erst dadurch fiel mir auf, dass PageWidth und PageHeight tatsächlich die volle Seitenbreite und -höhe meinen, denn auf dem Ausdruck sind die Ränder meines Bitmaps dann beschnitten. Man sieht unten die Linie der Berandung - die ist eigentlich ein Rectangle, das die Grafik komplett umfasst...

Ich gehe deine Liste mal durch, vielleicht finde ich was. Zusätzlich zur Fehlermeldung "Error" in der Druckerqueue wird allerdings tatsächlich keine weitere information bereitgestellt.

[Delphi.Narium]

Beim Druck per FireFox sorgt der Druckertreiber für das "Zurechtstutzen" des Ausdruckes, so dass das Format des zu Druckenden kein grundsätzliches Problem für den Drucker(treiber) darzustellen scheint.

Um das zu testen versuche mal etwas zu drucken, das auf jeden Fall kleiner als der Druckbereich einer Seite ist. Bleibt dann der Fehler liegt doch womöglich ein Konflikt in der Kommunikation FMX -> Drucker vor.

Eventuell musst Du beim Druck die DPI-Werte anpassen, die müssen beim direkten Druck aus FMX nicht mit denen in der PDF bzw. dem was der FireFox an den HP übermittelt, übereinstimmen.

CMYK, Alpha-Kanäle oder hohe Farbtiefen können Druckertreiber stören. Konvertiere das Bitmap ggfls. in ein einfacheres Format (z. B. 24-Bit RGB ohne Alpha).

Ehrlichgesagt kann ich aber auch nur raten