Sub PDFでエクスポート() Dim ブック As Workbook Set ブック = ActiveWorkbook Dim パス As String パス = ブック.FullName ブック.ExportAsFixedFormat Type:=xlTypePDF, Filename:=パス & ".pdf" End Sub
最近のバージョンは印刷プレビューが劣化しているので。
Permalink | コメント(0) | トラックバック(0) | 17:28
はてなユーザーのみコメントできます。はてなへログインもしくは新規登録をおこなってください。