Einzelnen Beitrag anzeigen

oldie

Registriert seit: 18. Jul 2006
36 Beiträge
 
Delphi 10.1 Berlin Professional
 
#1

farbig drucken an Standarddrucker ok - sonst sw

  Alt 29. Mär 2007, 18:31
Hallo,

ich drucke Bilder und Texte farbig. Ist der FarbLaserDrucker als Standard ausgewählt druckt alles in den richtigen Farben. Ist der Drucker nicht Standard wird alles in Graustufen gedruckt.

Delphi-Quellcode:
//Druckerauswahl
      ComboDruck.items:= printer.Printers;
//drucken
      Printer.PrinterIndex:= ComboDruck.ItemIndex;
      Printer.BeginDoc;
      SetMapMode(printer.canvas.handle, MM_LOMETRIC);
      SetTextAlign(handle, TA_LEFT+ TA_TOP);
      Font.Style:= [fsBold];
      Font.Height:= 60;
      Font.Color:= clred;
      with Printer.Canvas do begin
        TextOut(1500, -200, 'alles rot');
      end;
      Printer.EndDoc
Habt Ihr einen Tipp?

Gruß Oldie.
  Mit Zitat antworten Zitat