X
xuri
Unregistered / Unconfirmed
GUEST, unregistred user!
我有一个打印程序在 HP DJ1000C 型打印机上
使用 以下程序只能打印出一页,我的本意是要打印 10 页,也就是 Printer.NewPage 命令无效
with Printerdo
begin
begin
Doc;
for i := 1 to 10do
begin
Canvas.TextOut(100,100, 'Hello World');
if i < 10 then
NewPage;
EndDoc;
end;
我试着用 FastReport, ReportMachine, ExpressPrintSystem 2.1 打印效果都是一样,不能换页
各位高手,小生先在此谢过了!!!
使用 以下程序只能打印出一页,我的本意是要打印 10 页,也就是 Printer.NewPage 命令无效
with Printerdo
begin
begin
Doc;
for i := 1 to 10do
begin
Canvas.TextOut(100,100, 'Hello World');
if i < 10 then
NewPage;
EndDoc;
end;
我试着用 FastReport, ReportMachine, ExpressPrintSystem 2.1 打印效果都是一样,不能换页
各位高手,小生先在此谢过了!!!