通过打印打印跳转2张纸

时间:2015-12-16 16:23:45

标签: delphi printing

我正在创建一个读取txt文件的应用程序,并发送第二个表单,然后我打印表单,然后打印 上面的代码:

count := form1.Memo1.Lines.Count;

gerarcodigo create a barcode.
var y,i : integer;
begin
begin
   for i := 0 to count do
   begin
    button1.visible := false;
    label1.caption := form1.memo1.lines[i];
    label2.Caption := form1.memo7.lines[i] ;
     label9.Caption := form1.memo2.lines[i];
     label10.Caption := form1.memo3.lines[i];
    label11.Caption := form1.memo4.lines[i];
     label13.Caption := form1.memo5.lines[i];
    label14.Caption := form1.memo6.lines[i];
    GerarCodigo(label1.caption, Image1.Canvas);
   PrintScale :=  poNone;
   Print;
   end;

但问题是在打印完第一个后,打印件留下2个纸张空白,然后打印正确的信息,然后重复直到完成。

为了更多解释,我尝试绘制一些东西。 当我尝试打印时,

我能做些什么来解决这个问题? 我现在正在使用argox打印机。

enter image description here

0 个答案:

没有答案