Printing A report To A Dedicated Label Printer
Hi There,
I am using Delphi 5 Enterprise and RB6.03 and I am trying to create a report
that runs on dedicated label printers.
These printers do not have page breaks because they are continuous labels.
I have tried this report so many ways and can't think of any other way.
Please help.
Example:
Label Height = 25.4mm
Label Width = 101mm
Gap in between labels = 3.5mm
Left Margin = 10mm
Number of labels to print = 15
Thanks for all your help in advance.
Best regards,
--
Justin Heasman
Software Development Manager
Office Mobile Solutions Ltd.
---
E: justinDEFINATELY@NOofficemobilesolutionsSPAM.PLEASEcom
W: www.officemobilesolutions.com
I am using Delphi 5 Enterprise and RB6.03 and I am trying to create a report
that runs on dedicated label printers.
These printers do not have page breaks because they are continuous labels.
I have tried this report so many ways and can't think of any other way.
Please help.
Example:
Label Height = 25.4mm
Label Width = 101mm
Gap in between labels = 3.5mm
Left Margin = 10mm
Number of labels to print = 15
Thanks for all your help in advance.
Best regards,
--
Justin Heasman
Software Development Manager
Office Mobile Solutions Ltd.
---
E: justinDEFINATELY@NOofficemobilesolutionsSPAM.PLEASEcom
W: www.officemobilesolutions.com
This discussion has been closed.
Comments
then select 'Page Setup' from the 'File' menu. In the tab 'Paper size' you
can change the reports size.
"Justin Heasman (OMS Ltd)"
report needs to be created on the fly because the Paper Height and Width may
be different for different people. The Print Preview looks fine, but when
you actually print to the printer you sometimes get blank labels (hundreds
of them) or you get repeated information.
After it has finished printing and you look at the preview afterwards some
pages are correct and some have turned into A4 pages. This is causing major
problems - please can someone help.
Thanks, Justin.
FPaperLeftGap := 5;
FPaperHeight := 25.4;
FPaperTopGap := 0;
FPaperBottomGap := 3.5;
rbrDedicatedPrinter.PrinterSetup.PaperHeight := (FPaperHeight +
FPaperTopGap + FPaperBottomGap);
rbrDedicatedPrinter.PrinterSetup.PaperWidth := FPaperWidth;
ppDedicatedDetailBand.Height := (FPaperHeight + FPaperTopGap +
FPaperBottomGap);
ppDedicated_BarCode.Height := ppDedicatedDetailBand.Height / 2;
ppDedicated_BarCode.Left := FPaperLeftGap;
ppDedicated_BarCode.Top := FPaperTopGap;
ppDedicated_BarCode.Width := FPaperWidth - FPaperLeftGap -3;
rbrDedicatedPrinter.Print;
If it has a XP driver, most have a paper size option of continuous.
Then just design your report and print.
James Waler
Waler Ltd
http://www.waler.com