From: "Woody" <woody.tmw@ih2000.net>
Newsgroups: borland.public.delphi.objectpascal
References: <3b1e9c0a_2@dnews>
Subject: Re: Printing in draft ?
Date: Wed, 6 Jun 2001 21:03:10 -0500
Lines: 25
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 6.00.2462.0000
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2462.0000
NNTP-Posting-Host: 204.255.133.159
Message-ID: <3b1ee0dc$1_1@dnews>
X-Trace: dnews 991879388 204.255.133.159 (6 Jun 2001 19:03:08 -0700)
Path: dnews
Xref: dnews borland.public.delphi.objectpascal:191641

"Ing. Víctor M. Ojeda Valiente" <vojeda@uaa.edu.py> wrote in message
news:3b1e9c0a_2@dnews...
> Anybody knows how to print in draft from within a Delphi app ? Thanks in
> advance.
>

Use the device mode commands. You can find full examples elsewhere but this
should give you some ideas of what to look for....

MyDevMode^.dmFields := MyDevMode^.dmFields or (DM_PAPERSIZE or
DM_ORIENTATION or DM_COPIES or DM_PRINTQUALITY);

// fQuality holds a value to tell which mode to print in....
case ord(fQuality) of
  0: MyDevMode^.dmPrintQuality := DMRES_HIGH;
  1: MyDevMode^.dmPrintQuality := DMRES_MEDIUM;
  2: MyDevMode^.dmPrintQuality := DMRES_LOW;
  3: MyDevMode^.dmPrintQuality := DMRES_DRAFT;
end;


HTH
Woody