takayukisの日記

■[Excel]PDFでエクスポート

Sub PDFでエクスポート()
    Dim ブック As Workbook
    Set ブック = ActiveWorkbook
    Dim パス As String
    パス = ブック.FullName
    ブック.ExportAsFixedFormat Type:=xlTypePDF, Filename:=パス & ".pdf"
End Sub

最近のバージョンは印刷プレビューが劣化しているので。

Permalink | コメント(0) | トラックバック(0) | 17:28