切换打印机的彩色模式

uses Printers;

procedure TForm1.Button1Click(Sender: TObject);

var

Device : array[0..255] of char;

Driver : array[0..255] of char;

Port : array[0..255] of char;

hDMode : THandle;

PDMode : PDEVMODE;

begin

with Printer do begin

PrinterIndex := PrinterIndex;

GetPrinter(Device, Driver, Port, hDMode);

if hDMode <> 0 then begin

pDMode := GlobalLock(hDMode);

if pDMode <> nil then begin

pDMode.dmFields := pDMode.dmFields or dm_Color;

pDMode.dmColor := DMCOLOR_COLOR;

GlobalUnlock(hDMode);

end;

end;

PrinterIndex := PrinterIndex;

BeginDoc;

Canvas.Font.Color := clRed;

Canvas.TextOut(100,100, 'Red As A Rose!');

EndDoc;

end;

end;