![]() |
farbig drucken an Standarddrucker ok - sonst sw
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:
Habt Ihr einen Tipp?
//Druckerauswahl
ComboDruck.items:= printer.Printers; 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 Gruß Oldie. |
Re: farbig drucken an Standarddrucker ok - sonst sw
Zitat:
|
Re: farbig drucken an Standarddrucker ok - sonst sw
Nabend ...,
Zitat:
Delphi-Quellcode:
oder aber die Anzahl der Farben ermitteln
if (GetDeviceCaps(Printer.Handle, BITSPIXEL) * GetDeviceCaps(Printer.Handle, PLANES)) = 1 then
ShowMessage('Farbdrucker');
Delphi-Quellcode:
Grundsätzlich solltest du FontColor aber über das Canvas setzen
GetDeviceCaps(Printer.Handle, numcolors)
Delphi-Quellcode:
Was mir noch gerade einfällt: Wenn dein Farblaser nicht als Standard eingetragen ist, welcher ist es dann? Vielleicht ein SW-Drucker?
Printer.Canvas.Font.Color:= clred
LG Mario |
DP-Maintenance
Dieses Thema wurde von "SirThornberry" von "Programmieren allgemein" nach "VCL / WinForms / Controls" verschoben.
|
Re: farbig drucken an Standarddrucker ok - sonst sw
Hallo
auf dem Rechner sind zwei Drucker installiert. Ein SW- und ein Farbdrucker. Standarddrucker soll der SW-Drucker sein und die Farbausgabe nur in seltenen Fällen stattfinden. Um an den Fehler zukommen habe ich die Drucker versuchsweise einfach getauscht. @Matti es handelt sich beidesmal um den selben FarbDrucker. @Hobby-Programmierer Zitat:
Gruß Oldie |
Alle Zeitangaben in WEZ +1. Es ist jetzt 10:23 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz