Printing selections-URGENT PLS HELP

Greg Harrison

Delphi Developer

Sat, 07 Sep 2002 03:00:00 GMT

Printing selections-URGENT PLS HELP

Hi, I can not print by Page or Selection. Is there a way to do this? I am
using QReport but the print dialog does not allow for this. Can I over ride
this with code? thks

Stefan Buyno

Delphi Developer

Sun, 08 Sep 2002 03:00:00 GMT

Re:Printing selections-URGENT PLS HELP

hi Greg!
there is a way to setup the printer by your needs via custom preview. there
is a usefull demoon the QuSoft download site (www.qusoft.com or
www.qusoft.no). the file name is qr3cstd3.zip.
although the demo works fine, i had some problems adjusting the standard
printer setup dialog to a preview. here's the code for the OnClick event of
the Print button i wrote to solve it:

procedure TfrmQRepPreview.tbutPrintClick(Sender: TObject);
begin
with PrintDialog do
begin
FromPage := 1;
ToPage := QRUserPreview.QRPrinter.PageCount;
MinPage := 1;
MaxPage := QRUserPreview.QRPrinter.PageCount;
end;
if PrintDialog.Execute then
with PrintDialog do
with TQuickRep(QRUserPreview.QRPrinter.Master) do
begin
printersettings.FirstPage := FromPage;
printersettings.LastPage := ToPage;
printersettings.Copies := Copies;
Printersettings.PrinterIndex := Printers.Printer.PrinterIndex;
QRUserPreview.QRPrinter.Print
end
end;

this worked fine in my app - the standard print dialog works.
hope to been helpfull!
Stefan

Quote

Greg Harrison <seattl...@yahoo.com> wrote in message

news:8b8i02$pk19@bornews.borland.com...

Quote

> Hi, I can not print by Page or Selection. Is there a way to do this? I am
> using QReport but the print dialog does not allow for this. Can I over
ride
> this with code? thks

Greg Harriso

Delphi Developer

Sun, 08 Sep 2002 03:00:00 GMT

Re:Printing selections-URGENT PLS HELP

Stefan, thanks a million. I will try this. Really really appreciate your
response. gh

Quote

Stefan Buynov <bouy...@yahoo.com> wrote in message

news:8b9vjp$af16@bornews.borland.com...

Quote

> hi Greg!
> there is a way to setup the printer by your needs via custom preview.
there
> is a usefull demoon the QuSoft download site (www.qusoft.com or
> www.qusoft.no). the file name is qr3cstd3.zip.
> although the demo works fine, i had some problems adjusting the standard
> printer setup dialog to a preview. here's the code for the OnClick event
of
> the Print button i wrote to solve it:

> procedure TfrmQRepPreview.tbutPrintClick(Sender: TObject);
> begin
> with PrintDialog do
> begin
> FromPage := 1;
> ToPage := QRUserPreview.QRPrinter.PageCount;
> MinPage := 1;
> MaxPage := QRUserPreview.QRPrinter.PageCount;
> end;
> if PrintDialog.Execute then
> with PrintDialog do
> with TQuickRep(QRUserPreview.QRPrinter.Master) do
> begin
> printersettings.FirstPage := FromPage;
> printersettings.LastPage := ToPage;
> printersettings.Copies := Copies;
> Printersettings.PrinterIndex := Printers.Printer.PrinterIndex;
> QRUserPreview.QRPrinter.Print
> end
> end;

> this worked fine in my app - the standard print dialog works.
> hope to been helpfull!
> Stefan

> Greg Harrison <seattl...@yahoo.com> wrote in message
> news:8b8i02$pk19@bornews.borland.com...
> > Hi, I can not print by Page or Selection. Is there a way to do this? I
am
> > using QReport but the print dialog does not allow for this. Can I over
> ride
> > this with code? thks

Other Threads

1. pls help, my delphi 4 doesnt work on windows 2000...PLS HELP

2. Urgent: HELP ME PLS

3. Need Urgent HElp Pls...

4. Help with exception in bpl projects,Urgent pls

5. Interface problem(Urgent pls help)

6. Urgent QuickRept and DBMemo Problem, pls help!

7. Pls Help. Urgent C question

8. pls help...report builder pro -print label

9. Urgent .. pls : fail to create any generator

10. Urgent: Help with printing graphics