Sorry to But in Mark, I haven't been following this thread iether but
perhaps the following procedure has something in it to help you. It selects
the printer Index for a given printer name... Perhaps it is usefull to you,
else sorry for wasting space.


procedure SelectPrinter(PrinterName: string; QR: TQuickRep);
begin
 if PrinterName = '' then
  Printer.PrinterIndex := -1
 else
  if Printer.Printers.IndexOf(PrinterName) >= 0 then
   Printer.PrinterIndex := Printer.Printers.IndexOf(PrinterName)
  else
   raise Exception.Create('Invalid Printer');
 if QR <> nil then
  QR.PrinterSettings.PrinterIndex := Printer.PrinterIndex;
end;

-----Original Message-----
From: Max Renshaw-Fox <[EMAIL PROTECTED]>
To: Multiple recipients of list delphi <[EMAIL PROTECTED]>
Date: Tuesday, 21 September 1999 11:58 AM
Subject: RE: [DUG]: Printing problems


Didn't follow all, I've been out of town - can you send me a summary to
mailto:[EMAIL PROTECTED] and I'll start digging for the code.

Max

-----Original Message-----
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]On
Behalf Of Mark Howard
Sent: Monday, 20 September 1999 17:56
To: Multiple recipients of list delphi
Subject: Re: [DUG]: Printing problems


Max,
If it is not too much trouble I would appreciate this code, if you think it
will
fix my problem.
Were you following this thread from the start, and know the symptoms I
described? I can resend if you like
Thanks
Mark

Max Renshaw-Fox wrote:

> I worked on an existing app last year that had a line that essentially set
> the printer to printers.itemindex (or similar) with the comment that it
was
> to fix the D3 printer bug.
>
> I never compiled it with D3 - but can probably dig out the code if you
want.
>
> Max
>
> -----Original Message-----
> From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]On
> Behalf Of Mark Howard
> Sent: Friday, 17 September 1999 14:17
> To: Multiple recipients of list delphi
> Subject: Re: [DUG]: Printing problems
>
> [EMAIL PROTECTED] wrote:
>
> > MH originally said
>
> > > Patrick suggested the use of a 3rd party component called EDSPrint,
but
> > > it seems to me that it should be able to be fixed without the use of
> > > something like that.
> >
> > EDSPrint (TPrintSet) is a way that was recommended to me by someone else
> here
> > (Peter Hyde I think) because Delphi's own TPrinter has limitations.
Don't
> > expect too much from QuSoft either, as QR2 is not being updated AFAIK.
> >
> > My recollection was that default printer problems were mentioned
somewhere
> in
> > the QR2 documentation as a problem area. No fix is given though.
>
> Anyone else had any problems like this and used the above component to
> sucessfully fix them?
>
> Mark
>
> --------------------------------------------------------------------------
-
>     New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
>                   Website: http://www.delphi.org.nz
>
> --------------------------------------------------------------------------
-
>     New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
>                   Website: http://www.delphi.org.nz



---------------------------------------------------------------------------
    New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
                  Website: http://www.delphi.org.nz

---------------------------------------------------------------------------
    New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
                  Website: http://www.delphi.org.nz

---------------------------------------------------------------------------
    New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
                  Website: http://www.delphi.org.nz

Reply via email to