怎樣用Delphi Code 打開 Access2000 Report 的 preview or print Action?
我在這裡公開我的Delphi5.0+Access97 打開 Report preview or print 的操作.var
AccessApp:OleVariant;
begin
AccessApp:= CreateOleObject('Access.Application.8');
AccessApp.OpenCurrentDatabase(ExtractFilePath(Application.ExeName) +'data\gck_TPL.MDB');
AccessApp.DoCmd.OpenReport('pj_card',2);//Gck_TPL.MDB 中Report AccessApp.DoCmd.Maximize;
showWindow(AccessApp.hWndAccessApp,SW_SHOWMAXIMIZED);
MessageDlg('打印完畢請按确定',mtInformation,[mbOK],0)
end;
我在這裡公開我的Delphi5.0+Access97 打開 Report preview or print 的操作.var
AccessApp:OleVariant;
begin
AccessApp:= CreateOleObject('Access.Application.8');
AccessApp.OpenCurrentDatabase(ExtractFilePath(Application.ExeName) +'data\gck_TPL.MDB');
AccessApp.DoCmd.OpenReport('pj_card',2);//Gck_TPL.MDB 中Report AccessApp.DoCmd.Maximize;
showWindow(AccessApp.hWndAccessApp,SW_SHOWMAXIMIZED);
MessageDlg('打印完畢請按确定',mtInformation,[mbOK],0)
end;
解决方案 »
- 使用ADO连接和ADOQuery时怎么更新数据库
- 急!!!FastReport连续打印票据换页时走纸问题,帮帮忙!!!
- ADO访问数据库
- DBGrid的问题!!!
- 各位大侠,delphi中如何备份access,在线等待
- 朋友们:哪儿有cool的TForm控件下载
- 在用DEPHI6+ADO编程时,用一个循环改变一张表各字段的值时,出现错误,'Key colum information is insufficient or incorrect. Too many row
- 请问纳为知道那里有activeskin3.603的注册机
- 请教TQuery用法?
- Help me!!!
- Delphi+Access2000 怎樣 Preview Access2000 中的 Report?
- 我用INTRWEB做的一个婚纱影楼的管理程序,有些问题希望大家能解决?(在线等待)
AccessApp:OleVariant;
begin
AccessApp:= CreateOleObject('Access.Application');//我调试时去掉了.8
AccessApp.OpenCurrentDatabase(ExtractFilePath(Application.ExeName) +'data\gck_TPL.MDB');
AccessApp.DoCmd.OpenReport('pj_card',2);//Gck_TPL.MDB 中Report AccessApp.DoCmd.Maximize;
//showWindow(AccessApp.hWndAccessApp,SW_SHOWMAXIMIZED);
AccessApp.Visible:=True;//加上这句
MessageDlg('打印完畢請按确定',mtInformation,[mbOK],0)
end;