I need to "force" the printer resolution to the highest resolution
available. I fill the DEVMODE structure with (I think) the correct
informations (see below). Is this the best way to achieve this ?

Thanks

Code snippet
----------------------------
Procedure TMyPrinter.SetQuality(Value: SmallInt);

begin
  CheckPrinting(False);
  GetPrinterIndex;
  if DeviceMode = 0 then RaiseError(SInvalidPrinterOp);
  DevMode^.dmFields := DevMode^.dmFields or DM_PRINTQUALITY;
  DevMode^.dmPrintQuality := Value;
end;

In my code I use this :

MyPrinter.PrintQuality := DMRES_HIGH;
-------------------------------

Stphan St-Denis
Les Progiciels Concept Inc.

steph...@progicielsconcept.com
www.progicielsconcept.com