怎樣用Delphi Code 實現 Access2000 Report 的 preview or print Action?

Question

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

Answer 1

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);
    AccessApp.Visible:=True;//加上这句 
      MessageDlg('打印完畢請按确定',mtInformation,[mbOK],0)
end;