takayukisの日記 このページをアンテナに追加 RSSフィード

2017.09.02(土)

[]PDFエクスポート

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

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

はてなユーザーのみコメントできます。はてなへログインもしくは新規登録をおこなってください。

トラックバック - http://d.hatena.ne.jp/takayukis/20170902/1504340901