怎樣用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;
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;