<> コラム
PDF化 印刷 一発実行マクロ
 |
植村 貴昭 この内容を書いた専門家 元審査官・弁理士 行政書士（取次資格有） 登録支援機関代表 |
PDF化 印刷 一発実行マクロ
お見積もりとかの仕事をしていると、
EXCELをPDF化して出力することって多くないでしょうか。
私は多いです。
しかも、大抵、PDF化したファイルはプリントアウトもします。
それを作業するのって結構めんどくさくないでしょうか。
ファイル名を変更するとか言うのも面倒ではないでしょうか。
そんなEXCELマクロを作りました。
と言っても、私はマクロは一昨日初めて使ってみて、
ネットで調べつつ、作ったものです。
なお作られるPDFは、もとのEXCELのフォルダ内に、EXCELと同じ名前で作成されます。
以下マクロです。
———————
Sub アクティブウィンドウPDF化印刷()
nm = ActiveWorkbook.Name
i = InStrRev(nm, “.”)
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ActiveWorkbook.Path & “\” & Mid(nm, 1, i – 1) & “.pdf”
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
End Sub
特許庁のHPはこちら
word 全角→半角
