VBA

ファイルをPDFにして保存する方法を使う機会があったので調べて記録する。

ファイルをPDFにして保存する

ExportAsFixedFormatを使用してCSVデータをPDFで保存する。

Sub test()
Application.ScreenUpdating = False

Dim FPath As String
Dim FName As String 'ここにパスを入れる
Dim FType As String

FPath = "C:\test\""
FName = "test"
FType = ".csv"
Dim Wsheet As Worksheet



Workbooks.Open FPath & FName & FType
Set Wsheet = ActiveSheet


Wsheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=FPath & FName & ".pdf"

ActiveWorkbook.Close


End Sub

Sub test()

Application.ScreenUpdating = False

Dim FPath As String

Dim FName As String 'ここにパスを入れる

Dim FType As String

FPath = "C:\test\""

FName = "test"

FType = ".csv"

Dim Wsheet As Worksheet

Workbooks.Open FPath & FName & FType

Set Wsheet = ActiveSheet

Wsheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=FPath & FName & ".pdf"

ActiveWorkbook.Close

End Sub

上記ではC:\test\test.csv を C:\test\test.pdf にして保存している。
拡張子を変えればエクセルでも同様の操作が可能。

ページセットアップで印刷設定

印刷設定は以下のようなオプションがある

'以下をExportAsFixedFormatの処理の前に記載する


With Wsheet.PageSetup 
.LeftMargin = Application.InchesToPoints(0.5) 
'左余白の場合 (Right・Top・Bottom) &amp; Marginで上下左右の余白を設定できる

.HeaderMargin = Application.InchesToPoints(0.5) 
'ヘッダーマージンの設定。　FooterMarginMarinとすることで、フッターも設定可能。

.FitToPagesWide = 1
'横幅を１ページに収める
.FitToPagesTall = 1
'縦幅を１ページに収める


End With