Drucker druckt nicht mit EndDoc und Frage zum CanvasKopieren

[adrian4321]

Hallo,

folgendes Problem habe ich gerade mit einem HP LaserJet P1005:
Ich schicke einen Druckauftrag raus (Code siehe unten), sehe auch, wie der Druckaufschlange kurz in der Warteschlange landet, dort schnell wieder verschwindet, OHNE dass der Drucker einen Mucks tut?!

Jetzt kommt das richtig merkwürdige: schicke ich vorher an den Drucker eine Windows-Testseite, druckt mein Programm danach völlig problemlos (aber nur das, was nach der Testseite rausgeschickt wird, die Aufträge davor bleiben verschollen). Bis zum nächsten Windows-Neustart oder Drucker-aus/-einschalten, dann muss erst wieder die Testseite her.

Das Ganze passiert genau so sowohl auf meinem Entwicklungs-Rechner (Win XP), als auch auf dem PC, auf dem es nachher laufen soll (Vista home), immer mit dem selben HP P1005.

Gibt's da noch irgendetwas, das ich ausführen muss, um den Drucker "freizuschalten"?

Dann noch kurz Frage 2 - ich würde gerne, falls das Drucken fehlschlägt (z.B. Papierstau), ein "Druck wiederholen" anbieten - dazu hätte ich das Canvas-Element gerne zwischengespeichert über eine TCanvas-Variable, diese kann ich Printer.Canvas aber nicht zuweisen, da dies "nur-lesen" ist. Wie macht man das richtig?

Danke für die Hilfe ;)


Hier noch mein Code:

Delphi-Quellcode:

  with Printer do
  begin
    BeginDoc;
    try
      horizRes:= GetDeviceCaps(Handle, HorzRes);
      ScaleX := GetDeviceCaps(Handle, logPixelsX) div PixelsPerInch;
      ScaleY := GetDeviceCaps(Handle, logPixelsY) div PixelsPerInch;
      bildbreite:= img_logo2.Picture.Width * (scaleX div 2);
      RR := Rect((horizRes div 2) - bildbreite, linePos, (horizRes div 2) + bildbreite, (img_logo2.Picture.Height * ScaleY) +linePos);
      Canvas.StretchDraw(RR, img_logo2.Picture.Graphic);
      linePos:= linePos + (img_logo2.Picture.Height * ScaleY) + 300;
      Canvas.Font.Size:= 11;

//Canvas-"Befüllung" (sollte ja nichts zur Sache tun..?)

    finally
      EndDoc;
    end;
  end;

Nachtrag: Habe das hier http://entwickler-forum.de/showthread.php?t=24941 gerade gefunden - der HP ist ja über USB angeschlossen - vielleicht ein ähnliches Problem? Ich werde es mal so, wie dort beschrieben, versuchen.