開いている全てのフォーム・レポート
Application.Forms
Application.Reports

保存されている全てのフォーム・レポート
CurrentProject.AllForms
CurrentProject.AllReports

アクティブなフォーム・レポート・コントロール
Screen.ActiveForm
Screen.ActiveReport
Screen.ActiveControl 

フォーム・レポート上の全てのコントロール
Me.Controls

使用可能な全てのプリンタ
Application.Printers


フォームのセクション
myForm.Section(index)

index
0 acDetail フォームの [詳細] セクションまたはレポートの詳細セクション 
1 acHeader フォーム ヘッダーまたはレポート ヘッダー 
2 acFooter フォーム フッターまたはレポート フッター 
3 acPageHeader フォームのページ ヘッダーまたはレポートのページ ヘッダー 
4 acPageFooter フォームのページ フッターまたはレポートのページ フッター 
5 acGroupLevel1Header グループ レベル 1 のヘッダー セクション (レポートのみ) 
6 acGroupLevel1Footer グループ レベル 1 のフッター セクション (レポートのみ) 
7 acGroupLevel2Header グループ レベル 2 のヘッダー セクション (レポートのみ) 
8 acGroupLevel2Footer グループ レベル 2 のフッター セクション (レポートのみ) 


Private Sub btn1_Click()
    
    Dim c As Object

    For Each c In Application.Forms
        Debug.Print c.Name
    Next
     
    For Each c In Application.Reports
        Debug.Print c.Name
    Next

    For Each c In Application.Printers
        Debug.Print c.DeviceName
    Next

    For Each c In Me.Controls
        Debug.Print c.Name
    Next

    For Each c In CurrentProject.AllForms
        Debug.Print c.Name
    Next

    For Each c In CurrentProject.AllReports
        Debug.Print c.Name
    Next

End Sub


 ↓ facebook のフォローで応援してください。お願いします。



Microsoft Office ブログランキングへ