「accessからexcelを起動して印刷してファイルを消すフォーム」の編集履歴（バックアップ）一覧はこちら

「accessからexcelを起動して印刷してファイルを消すフォーム」(2009/07/15 (水) 11:03:46) の最新版変更点

追加された行は緑色になります。

削除された行は赤色になります。

*accessからexcelを起動して印刷してファイルを消すフォーム

 Option Compare Database
 Private Sub コマンド0_Click()
 On Error GoTo Err_コマンド0_Click
    Dim oApp As Object
    Set oApp = CreateObject("Excel.Application")
    oApp.Visible = True
    'Only XL 97 supports UserControl Property
    On Error Resume Next
    oApp.UserControl = True
    oApp.Workbooks.Open FileName:="C:\test.xls"
    oApp.Range("B4").Value = "testテスト"
    oApp.ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    oApp.DisplayAlerts = False
   ' oApp.Workbooks.Save
    oApp.Workbooks.Close SaveChanges:=False
    oApp.DisplayAlerts = False
    oApp.Quit
    Set oApp = Nothing
    Kill "c:\test.xls"
 Exit_コマンド0_Click:
    Exit Sub
 Err_コマンド0_Click:
    MsgBox Err.Description
    Resume Exit_コマンド0_Click   
 End Sub
 Private Sub 詳細_Click()
 End Sub

*accessからexcelを起動して印刷してファイルを消すフォーム

**以下のコードをビルダに記述

 Option Compare Database
 Private Sub コマンド0_Click()
 On Error GoTo Err_コマンド0_Click
    Dim oApp As Object
    Set oApp = CreateObject("Excel.Application")
    oApp.Visible = True
    'Only XL 97 supports UserControl Property
    On Error Resume Next
    oApp.UserControl = True
    oApp.Workbooks.Open FileName:="C:\test.xls"
    oApp.Range("B4").Value = "testテスト"
    oApp.ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    oApp.DisplayAlerts = False
   ' oApp.Workbooks.Save
    oApp.Workbooks.Close SaveChanges:=False
    oApp.DisplayAlerts = False
    oApp.Quit
    Set oApp = Nothing
    Kill "c:\test.xls"
 Exit_コマンド0_Click:
    Exit Sub
 Err_コマンド0_Click:
    MsgBox Err.Description
    Resume Exit_コマンド0_Click   
 End Sub
 Private Sub 詳細_Click()
 End Sub