fastreport同一张报表打印 n 页问题
情况是这样:
有一张卡片,卡片上除了需要的内容外还有页码表示(类似1/246),就是该卡片一共246张,这是第一张。
每张卡片除了页码不一样外其它都一样,请问如何打印出246张页码不同的卡片?
[解决办法]
自己做一个打印窗口,上面有份数和打印机等信息。
edit1是页数
在打印按纽事件中写
self.frxReport1.LoadFromFile(你的报表);
self.frxReport1.PrintOptions.Printer :=你的打印机;
self.frxReport1.PrintOptions.ShowDialog :=false;//不显示打印对话框
self.frxReport1.ShowProgress :=false;//不显示打印进程
for i:=1 to strtoint(edit1.text) do begin
TfrxMemoView(frxReport1.FindObject('Memo13')).Memo.Text:='1/246';//Memo13改为你的页码框,内容可用变量转换成字符(inttostr(i)+'/'+trim(self.edit1.text))
self.frxrport.print;
end;
end;
应该可以了吧,手写代码,没有测试。