Thanks James. I've had a look at www.qusoft.com <http://www.qusoft.com>
but couldn't find anything that seemed to fit the description. Perhaps I
didn't look hard enough, so I'll try again.
Cheers,
Michael
-----Original Message-----
From: James Sugrue [SMTP:[EMAIL PROTECTED]]
Sent: Friday, 23 June 2000 08:32
To: Multiple recipients of list delphi
Subject: RE: [DUG]: QuickReport 3 - printing to dot matrix
I had a similar problem with QR. I upgraded a project from D3 to D4
and got
similar problems to your one. There is a patch on the website (Can't
remember the site off hand) that fixed your problem, but I kept
getting
random AV's so in the end we reverted to D3 and are going to try
D5.... I
digress, so I would recommend that you try the patch first if you
haven't
already.
-----Original Message-----
From: Michael White [mailto:[EMAIL PROTECTED]]
Sent: Thursday, 22 June 2000 16:35
To: Multiple recipients of list delphi
Subject: [DUG]: QuickReport 3 - printing to dot matrix
My apologies for posting this here, but I posted to
[EMAIL PROTECTED]
<mailto:[EMAIL PROTECTED]> at 13:44 and still haven't seen my
posting
come through...
I have asked this same question on the
borland.public.delphi.reporting-charting newsgroup, but have not had
any
response so hope that someone here can help.
When user changes something from the Printer Setup button on the
QuickReport
Preview screen (e.g. Print from page 1 to page 2) and then prints
the report
from the Preview screen, it prints one page and then completely
freezes the
computer (requires ctrl-alt-del to escape). The Print Progress
dialog shows
that it freezes at 49%. But if the user just chooses to print
without
changing the Printer Setup, it prints the whole report fine.
The code below is rather messy (full of try/except, try/finally as
we were
trying to trap what was going wrong). Does anyone out there have
any
suggestions???
procedure TfrmReportSelection.doGrossProfitReport;
begin
try
try
Screen.Cursor := crHourGlass;
try
frmGrossProfit := TfrmGrossProfit.Create(Application);
with frmGrossProfit do begin
Screen.Cursor := crDefault;
Application.ProcessMessages;
rptGrossProfit.Prepare;
try
with rptGrossProfit.QRPrinter.Create do begin
PrinterIndex := -1;
rptGrossProfit.Page.PaperSize := PaperSize;
rptGrossProfit.PrinterSettings.OutputBin := OutputBin;
end;
rptGrossProfit.PreviewModal;
Close;
finally
rptGrossProfit.QRPrinter.Free;
end;
rptGrossProfit.QRPrinter := nil;
end;
finally
frmGrossProfit.Free;
end;
except
on E: Exception do
ShowMessage(E.Message);
end;
finally
Screen.Cursor := crDefault;
end;
end;
TIA,
Michael
---------------------------------------------------------------------------
New Zealand Delphi Users group - Delphi List -
[EMAIL PROTECTED]
Website: http://www.delphi.org.nz
CAUTION - This message may contain privileged and confidential
information intended only for the
use of the addressee(s) named above. If you are not the intended
recipient of this message you are
hereby notified that any use, dissemination, distribution or
reproduction of this message is prohibited.
If you have received this message in error please notify Progressive
Enterprises Ltd. immediately via
email at [EMAIL PROTECTED] Any views expressed
in this message are those of the
individual sender and may not necessarily reflect the views of
Progressive Enterprises Ltd.
This footnote also confirms that Progressive Enterprises Ltd. has
swept this email message for the
presence of computer viruses. This does not guarantee this message
is virus free.
---------------------------------------------------------------------------
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
