Report for POS System.

rbuser

Hi all.

I understand that when I create a report I have specified to that report the
dimensions (Width and Height) of the paper size I had specified. So
starting from that point of view:

1. How is controlled the size of the paper for the invoices printed by the
POS.
2. Is it controlled by the printer itself and how do I control that taking
into consideration that I don't have a POS printer connected to my computer
(where I developed the application).

Some advices would be good.

Thanks.

Fabio.

nicocizik

Hi Fabio,

Take a look at the following article on printing to continuous paper with
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