正しいファイルパスと正しいファイル名でのPDFへの印刷

毎日のExcelレポートを取得し、それを特定のプリンタ（PDFに印刷）に印刷する小さなマクロを作成しました。マクロを実行すると、私はまだ最後のステップを逃しています。それをそのまま実行すると、私はまだポップアップする「保存」ボタンをクリックして、正しいファイルパスに移動する必要があります。自動的に保存ボタンを押してファイルを正しいフォルダに保存する方法はありますか（下のコードを参照）。正しいファイルパスと正しいファイル名でのPDFへの印刷

Sub printToPDF() 

'declare variable for my file path 
Dim filePath As String 

'declare variable for my file name 
Dim fileName As String 

fileName = "Operations_Daily_Outage_Report_" & Format(Date, "yyyy-mm-dd") 
filePath = "M:\Daily_Outage_Report\Active" 

Worksheets("general_report").PageSetup.CenterVertically = False 
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:="Foxit Reader PDF Printer" 

End Sub

出典

2016-08-02 Rivers31334

これは、以前のバージョンのExcelで、単に.pdfに保存することはできませんか？または、PDFドライバで印刷している他の理由がありますか？ – Comintern

次の3つのオプションがあります。https://support.office.com/en-us/article/Save-as-PDF-d85416c5-7d77-4fd6-a216-6f4bf7c7c110またはhttps://msdn.microsoft.com/en- us/library/windows/desktop/ms644950（v = vs.85）.aspxまたはhttps://msdn.microsoft.com/en-us/library/office/ff821075.aspx – cyboashu

単純にPDFとして保存すると、私は 'PageSetup.CenterVertically = False'が動作する場所をまだ設定していますか？これの一部は私のための学習の練習です。 – Rivers31334

誰もがあなたに試してみることができる答えを与えようとしていると思います。私はあなたがなぜそれをテストして、それがあなたのために働くのかを教えてくれないのかどうか分からないのですか？

あなたがアクセス（過去10年以内）の合理的に新しいバージョンを持っている場合、あなたは内蔵のオフィスのPDFコンバータ

変更にこのラインを使用することができるはずです：

ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:="Foxit Reader PDF Printer"

をこれに

：

Worksheets("general_report").ExportAsFixedFormat Type:=xlTypePDF _  
    FileName:=filePath & "\" & fileName Quality:=xlQualityStandard

それがあなたのために働いた場合、戻って教えてください。

出典

2016-08-02 21:14:34 dbmitch

ありがとうございます。私はそれをすることができないのではない、それは私がこれに新しいです。そして時にはあなたの目のための簡単な解決策は私にとっては容易ではありません。私たちはすべて異なったレベルにあり、私ができる限り多くのことを学ぶことはうれしいです。私はあなたの助けに感謝します。 – Rivers31334

あなたのために働いたうれしい。あなたの将来のコーディングをお楽しみください！ – dbmitch

正しいファイルパスと正しいファイル名でのPDFへの印刷

答えて

関連する問題