Home General
New Blog Posts: Merging Reports - Part 1 and Part 2

Printing A report To A Dedicated Label Printer

edited November 2003 in General
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

Comments

  • edited November 2003
    Didn't it work when you set the Report size manuell? Create a new report and
    then select 'Page Setup' from the 'File' menu. In the tab 'Paper size' you
    can change the reports size.




    "Justin Heasman (OMS Ltd)"
  • edited November 2003
    I have tried that and it doesn't work. This is the code I am using. The
    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;


  • edited November 2003
    You should be able to get a continuous driver from the label manufacturer.
    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
This discussion has been closed.