我正在创建一个读取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打印机。