预览报表上的打印,设置按钮怎么变灰了(100分)

  • 主题发起人 主题发起人 易云飞
  • 开始时间 开始时间

易云飞

Unregistered / Unconfirmed
GUEST, unregistred user!
我在使用QuickRep做报表时,
考虑到使用preview预览时,产生的多实例在最小化时不易在
动态窗体中控制,用了previewmodal来预览报表,但是在运行程序
时打开预览窗体时其上的打印,设置按钮有时正常,有时变灰,不知什么原因.
在调用预览窗体时,我采用的动态创建打印报表预览窗体,方式如下:
...
with frmprint.create(self)do
try
quickRep1.previewmodal,
...
finally
free;
end;

...
当调用出打印预览窗体就有时发现其上的打印按钮和设置按钮有时处于非激活的
灰态,我想不知在TquickRep类中是否有其属性的设置可以在程序中控制,而不会出现
这种莫名奇妙的问题,不知有谁曾遇见这样的问题,请指点.........奉上100分敬送.



 
这个问题我没碰到过,不过可以给你出个馊主意:)
你不是不想让它最小化吗,把预览窗口的最小化按钮屏蔽掉就行了;
在QuickRep的BefroePrint事件里这样写(预览还用Preview方法)——
procedure TForm1.QuickRep1BeforePrint(Sender: TCustomQuickRep;
var PrintReport: Boolean);
var
H: THandle;
begin
H := GetForegroundWindow;//得到预览窗口句柄
SetWindowLong(H, GWL_STYLE, GetWindowLong(H, GWL_STYLE) and not WS_MINIMIZEBOX);//把最小化按钮变灰
SetWindowPos(H, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE or SWP_NOSIZE);//刷新预览窗口
end;
 
自定义报表预览对于组合报表好用吗?我没搞定。
 
是不是没有安装打印机?
 
修改以下他的原代码,还可用,也漂亮些。
 
哪儿有它的源代码呢?
不过,目前我看来只好使用dq的办法了.解决了问题是主要.
 
谢谢大伙参与.
如果大伙能经常交流倒是一大快事.
 
后退
顶部