[[20200131200252]]　『コマンドボタンを押したらPDF保存』（ぽん）　ページの最後に飛ぶ

『コマンドボタンを押したらPDF保存』（ぽん）

コマンドボタンを押したら
ひとつはA1に入力されている言葉+B1に入力されている言葉でデスクトップにPDF保存し尚且つそのPDFを開く様にしたいと思います。

もうひとつはA1に入力されている言葉でデスクトップ保存ですが１ページと９ページだけPDF保存したいです

一応ここまで頑張りましたが思うように上手にできませんよろしくお願いします。

＜使用 Excel：Excel2019、使用 OS：Windows10 ＞

 >一応ここまで頑張りましたが

 「ここまで」のコードをアップしてみてください。
（OK） 2020/01/31(金) 20:28

OKさん

添付するの忘れてました

Private Sub PDF_Click()

Dim pdf_name As String

pdf_name = Range("K7").Value
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _

        "C:\Users\hitct\Desktop" + pdf_name, Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        True
End Sub

これを改良しようとしたのですがどこをどうすればわからなくて、、、、
（ぽん） 2020/01/31(金) 20:47

うーん　そのコードを頑張って"作った"なら前半はすぐにわかりそうですが・・・
まさか、頑張って調べたので改造は丸投げしますって話じゃないですよね?

■１
とりあえず、提示されたコードを整理するとこうです。

    Private Sub PDF_Click()
        With ActiveSheet
            .ExportAsFixedFormat _
                Type:=xlTypePDF, _
                Filename:="C:\Users\hitct\Desktop" & .Range("K7").Value, _
                Quality:=xlQualityStandard, _
                IncludeDocProperties:=True, _
                IgnorePrintAreas:=False, _
                OpenAfterPublish:=True
        End With
    End Sub

＞ひとつはA1に入力されている言葉+B1に入力されている言葉でデスクトップにPDF保存
文字列結合をしている部分が既にあるので、マネをすればよいでしょう。
（ちなみに、「+」でも間違いではないですが、文字列結合は一般的に「＆」を使います）

＞そのPDFを開く様にしたい
https://docs.microsoft.com/ja-jp/office/vba/api/excel.workbook.exportasfixedformat
↑の「OpenAfterPublish」の説明を読んでください。

読めばわかりますが、今のコードで実現されています。

■２
＞１ページと９ページだけPDF保存したいです
Excelの場合、ページを選択的に出力できなかったとおもうので、2～8ページに相当する行なり列なりを非表示にしてから、出力されればよいとおもいます。

操作方法（非表示にする命令）は、（たぶん）マクロの記録で調べられます。

（もこな２） 2020/01/31(金) 22:14

＞１ページと９ページだけPDF保存

手作業で対象範囲を選んで、印刷範囲の設定しておけばどうですか。
マクロはそまのままで。

（マナ） 2020/01/31(金) 22:55

みなさんありがとうございます。
（ぽん） 2020/02/02(日) 00:34

コメント返信：

[ 一覧(最新更新順) ]

[[20200131200252]] 『コマンドボタンを押したらPDF保存』（ぽん） ページの最後に飛ぶ

[[20200131200252]]　『コマンドボタンを押したらPDF保存』（ぽん）　ページの最後に飛ぶ