我用PrepareReport添加打印,不管打印一页还是多页,预览时没有问题,而打印时总是多打印一页空白页。而设置打印当前页时,打印没有反应,设置打印第一页和全部时总会莫名多出一页空白页。pagecount总是2。不知是什么原因,求高手指教啊。
代码大概样式:
按钮按下事件里: KG_ZSBH := Trim(FieldByName('AB006').AsString);
KG_XM := Trim(FieldByName('AA002').AsString);
KG_XB := Trim(FieldByName('AA007String').AsString);
KG_SFZH := Trim(FieldByName('AA003').AsString);
KG_SSZS := Trim(FieldByName('AA015String').AsString);
frpKGDY.LoadFromFile(fr3Path);
frpKGDY.PrepareReport();
frpKGDY.PrintOptions.ShowDialog := False;
frpKGZDY.Print;
frpKGDYGetValue(const VarName: String; var Value: Variant);
BEGIN
if CompareText(VarName, 'KG_XM ') = 0 then
begin
Value := KG_JB;
end;
.
.
.
.
END
代码大概样式:
按钮按下事件里: KG_ZSBH := Trim(FieldByName('AB006').AsString);
KG_XM := Trim(FieldByName('AA002').AsString);
KG_XB := Trim(FieldByName('AA007String').AsString);
KG_SFZH := Trim(FieldByName('AA003').AsString);
KG_SSZS := Trim(FieldByName('AA015String').AsString);
frpKGDY.LoadFromFile(fr3Path);
frpKGDY.PrepareReport();
frpKGDY.PrintOptions.ShowDialog := False;
frpKGZDY.Print;
frpKGDYGetValue(const VarName: String; var Value: Variant);
BEGIN
if CompareText(VarName, 'KG_XM ') = 0 then
begin
Value := KG_JB;
end;
.
.
.
.
END
解决方案 »
- com组件 已服务形式注册 其他程序无法通过GetActiveObject来获取这个组件?
- 请问DEPHI怎么样结束windows进程?
- InternetCheckConnection 和 InternetQueryOption
- 郁悶阿﹐在delphi6里不是問題的﹐在delphi5都成問題了。
- FastReport未注册,打印的时候老是会打印出“fastreport unregistered”字样?
- 如何响应DBGRID控件中的光标从一条记录移动到另一条记录?
- 在Win98下使用Setjob函数遇到的问题
- 价值观上的走火入魔让百度在价值创造模式上步入歧途
- 为什么TForm1没有创建和释放Button1?
- 高分求解:请问如何在.dll里动态创建调用pop3控件收信?
- 求一非递归算法!非递归!
- 请教一个关于数据库记录转换成JSON问题
或者控制了打印的笔数,不过也不排除打印机的问题自己多测试吧
多打印一页是不是纸张的长度设置长了,或者有隐藏的控件什么的 好好看看 。