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

Trouble with Label form length

edited May 2005 in End User
I have configured a label with custom form size.
When I'm printing labels, after the end of the page
occurs a jump of paper and the second label
stay not on the correct position.

Thanks,

Marcelo.

Comments

  • edited May 2005
    Hi Marcelo,

    Is this label printer using continuous paper? If so, take a look at the
    following article for some tips and info on printing to continuous paper in
    RB.

    ----------------------------------------------------
    Article: Printing to Continuous Paper
    ----------------------------------------------------

    1. Layout

    For continuous printing (for example a receipt) use Title/Summary and
    removing the Header/Footer. Set the PrintHeight of each to phDynamic. Layout
    the DetailBand to print a single line item. Set the margins to 0 or to the
    smallest that the printer driver will support (some printers have an
    unprintable area).

    With this configuration The Report will generate a Title followed by a
    variable number of Detail bands that span pages if needed, and then finally
    print a Summary at the end.

    2. Pagination

    a. dtPrinter

    Some printer drivers have a continuous paper size setting. If not then try
    setting the paper size to be very small - perhaps the size of the tallest
    band in the layout. Or try setting the page height to be the size of a
    detail band. Note that some printer drivers will only accept page sizes
    within a certain range of paper sizes.

    b. dtReportTextFile

    With the above layout, the report text file will generate the page breaks
    properly, however the device will fill up a page with blank lines. You can
    control the number of lines per page by configuring the CharacterGrid
    property in the Report.BeforePrint event:

    example:


    procedure TForm1.ppReport1BeforePrint(Sender: TObject);
    var
    lDevice: TppReportTextFileDevice;
    begin

    if (ppReport1.FileDevice <> nil) and (ppReport1.FileDevice is
    TppReportTextFileDevice)then
    begin
    lDevice := TppReportTextFileDevice(ppReport1.FileDevice);

    {120 characters per line, 66 lines per page}
    lDevice.CharacterGrid(120, 66);
    end;

    end;

    --
    Regards,

    Nico Cizik
    Digital Metaphors
    http://www.digital-metaphors.com

    Best Regards,

    Nico Cizik
    Digital Metaphors
    http://www.digital-metaphors.com
  • edited May 2005
    Hi Nico,


    Your solution solve my problem partially.

    With your help and driver of lx300 (no lx300+) the problem is solved.

    The lx300 driver have problems.


    Thank you very much.

    Hi Nico,


    Your solution solve my problem partially.

    With your help and driver of lx300 (no lx300+) the problem is solved.

    The lx300 driver have problems.


    Thank you very much.

This discussion has been closed.