エクセルシートをPDF化して保存

office2016で作成　（試用版）

'Module1

Option Explicit

Sub main()

    '通常フォームを表示させる場合は、Showメソッドを使う。

    'このShowメソッドを使用すると、フォームが表示されている間はExcelの操作ができなくなる。

    'しかし、フォームを「モードレス」という表示方法で表示させると、

    'フォームが開いたままの状態でExcelの操作が可能になる。

    UserForm3.Show vbModeless

    'UserForm3.Show

End Sub

'------------------------------------------------------

'UserForm3

Option Explicit

Private Sub UserForm_Activate()

    Worksheets("データ").Select

End Sub

Private Sub UserForm_Initialize()

    プレビューオプション.Value = True

    プレビューボタン.Enabled = True

    PDFボタン.Enabled = False

End Sub

Private Sub プレビューオプション_Click()

    プレビューボタン.Enabled = True

    PDFボタン.Enabled = False

End Sub

Private Sub PDFオプション_Click()

    PDFボタン.Enabled = True

    プレビューボタン.Enabled = False

End Sub

Private Sub プレビューボタン_Click()

    'UserForm3.Hide

    ActiveSheet.PrintPreview

    MsgBox "END"

End Sub

Private Sub PDFボタン_Click()

    'UserForm3.Hide

    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=CreateObject("WScript.Shell").SpecialFolders.Item("Desktop") & "\データ.pdf"

    MsgBox "END"

End Sub