先日 https://okwave.jp/qa/q10301453.html と https://okwave.jp/qa/q10301885.html にて PDF化の際に『Microsoft Print to PDF』を自動選択できるマクロをご教示いただきましたが、さらに欲が出てきました。
前回・前々回は固定ファイルに埋め込むマクロでしたが、今回は不特定多数のファイルに使用したいため PERSONAL.XLSB に組み込みたいのです。
<やりたいこと>
１．PDF化の際に『Microsoft Print to PDF』を自動選択
２．PDFファイル名はExcelファイル名を初期値としてセット
３．保存場所をExcelファイル名と同じ場所を初期表示した上で名前を付けて保存画面を表示
自分なりに頑張って設定したのですが、Call Sh.PrintOutが設定されているためなのか自動保存された上で名前を付けて保存画面表示が出るという状態です。
Sub PDF_別名保存()
Dim saveFolder As String: saveFolder = ActiveWorkbook.Path & "\" 'Excelファイルと同じフォルダ
Dim FSO As Object
Dim fname As String
Dim fullname As String
Dim Done As Variant
Dim Sh As Object
Set Sh = ActiveWindow.SelectedSheets
Dim orgPrinter As String
'ファイルを操作するオブジェクト
Set FSO = CreateObject("Scripting.FileSystemObject")
'Excelファイル名(拡張子なし)をPDFファイル名にする
fname = FSO.GetBaseName(ActiveWorkbook.name) & ".pdf"
fullname = saveFolder & fname
'『Microsoft Print to PDF』を自動設定
orgPrinter = Application.ActivePrinter
Call Sh.PrintOut(ActivePrinter:="Microsoft Print to PDF", PrintToFile:=True, PrToFileName:=fullname)
Application.ActivePrinter = orgPrinter
Set Sh = Nothing
'名前を付けて保存画面表示
Done = IIf(Application.Dialogs(xlDialogSaveAs). _
Show(Arg1:=fullname, Arg2:=57), "保存", "キャンセル")
If Done = "キャンセル" Then
Else
End If
End Sub
どの部分を改修すればよろしいのでしょうか？
尚、選択したsheetをPDFファイル名にして自動保存するマクロと、Excelファイル名をPDFファイル名にして自動保存するマクロはできました。
下記マクロでシートをPDF化しています。
<マクロ１>
Sub PDF保存_指定フォルダ()
Application.Dialogs(xlDialogPrinterSetup).Show
Const saveFolder = "C:\PDF\"
Dim fname As String
Dim fullname As String
fname = ActiveSheet.Range("A1").Value & ".pdf" 'A1セルの文字をファイル名にする
fullname = saveFolder & fname
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:=fullname
End Sub
<マクロ２>
Sub PDF保存_同一フォルダ()
Application.Dialogs(xlDialogPrinterSetup).Show
Dim FileName As String
FileName = ActiveSheet.Range("L4").Value & "_Invoice" & ".pdf" 'A1セルの文字をファイル名にする
'Excelファイルと同じフォルダへ保存
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
FileName:=ActiveWorkbook.Path & "\" & FileName
End Sub
用紙サイズをA4縦に固定したいので、「Application.Dialogs(xlDialogPrinterSetup).Show」でプリンター設定画面を表示させて『Microsoft Print to PDF』を選択するようにしています。
プリンター設定画面を表示させなくてもマクロ内で『Microsoft Print to PDF』を設定する方法はありませんか？
プリンター名確認マクロで「Microsoft Print to PDF on Ne01:」と表示されますが”Ne01”はPCによって異なる可能性がありますので、できれば「Microsoft Print to PDF」のみを指定できればありがたいです。
会社PC(Win10／Win11)ですので「Microsoft Print to PDF」がある前提で構いません。
よろしくお願いします
下記マクロでシートをPDF化しています。
<マクロ１>
Sub PDF保存_指定フォルダ()
Application.Dialogs(xlDialogPrinterSetup).Show
Const saveFolder = "C:\PDF\"
Dim fname As String
Dim fullname As String
fname = ActiveSheet.Range("A1").Value & ".pdf" 'A1セルの文字をファイル名にする
fullname = saveFolder & fname
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:=fullname
End Sub
<マクロ２>
Sub PDF保存_同一フォルダ()
Application.Dialogs(xlDialogPrinterSetup).Show
Dim FileName As String
FileName = ActiveSheet.Range("L4").Value & "_Invoice" & ".pdf" 'A1セルの文字をファイル名にする
'Excelファイルと同じフォルダへ保存
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
FileName:=ActiveWorkbook.Path & "\" & FileName
End Sub
用紙サイズをA4縦に固定したいので、「Application.Dialogs(xlDialogPrinterSetup).Show」でプリンター設定画面を表示させて『Microsoft Print to PDF』を選択するようにしています。
プリンター設定画面を表示させなくてもマクロ内で『Microsoft Print to PDF』を設定する方法はありませんか？
プリンター名確認マクロで「Microsoft Print to PDF on Ne01:」と表示されますが”Ne01”はPCによって異なる可能性がありますので、できれば「Microsoft Print to PDF」のみを指定できればありがたいです。
会社PC(Win10／Win11)ですので「Microsoft Print to PDF」がある前提で構いません。
よろしくお願いします
下記マクロでシートをPDF化しています。
<マクロ１>
Sub PDF保存_指定フォルダ()
Application.Dialogs(xlDialogPrinterSetup).Show
Const saveFolder = "C:\PDF\"
Dim fname As String
Dim fullname As String
fname = ActiveSheet.Range("A1").Value & ".pdf" 'A1セルの文字をファイル名にする
fullname = saveFolder & fname
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:=fullname
End Sub
<マクロ２>
Sub PDF保存_同一フォルダ()
Application.Dialogs(xlDialogPrinterSetup).Show
Dim FileName As String
FileName = ActiveSheet.Range("L4").Value & "_Invoice" & ".pdf" 'A1セルの文字をファイル名にする
'Excelファイルと同じフォルダへ保存
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
FileName:=ActiveWorkbook.Path & "\" & FileName
End Sub
用紙サイズをA4縦に固定したいので、「Application.Dialogs(xlDialogPrinterSetup).Show」でプリンター設定画面を表示させて『Microsoft Print to PDF』を選択するようにしています。
プリンター設定画面を表示させなくてもマクロ内で『Microsoft Print to PDF』を設定する方法はありませんか？
プリンター名確認マクロで「Microsoft Print to PDF on Ne01:」と表示されますが”Ne01”はPCによって異なる可能性がありますので、できれば「Microsoft Print to PDF」のみを指定できればありがたいです。
会社PC(Win10／Win11)ですので「Microsoft Print to PDF」がある前提で構いません。
よろしくお願いします
