Excelのマクロに詳しい人ちょっと来てくれ

1 ：1：2023/08/18(金) 10:53:48.52 .net

質問不可のスレしか見つからなくて、本スレがどこにあるのかわからなかったのと、過去スレで類似があるか調べた感じわからなかったので、スレ立てさせていただきました。

お聞きしたいのは、１つのシートを複数枚PDF出力する際に１つのPDFファイルとして纏まった状態で出力する方法です

現状は次レスのコードを使用していますが、これだと、控えがそれぞれ別のPDFとして出力されてしまいます。
これでも仕事に支障があるわけではありませんが、できれば纏めた状態で出力したいので、詳しい方いましたらよろしくお願いします。

2 ：1：2023/08/18(金) 10:54:45.26 .net

Sub Macro1()
'
' Macro1 Macro
'

'お客様控ページ
'ヘッダー・フッターの指定
With ActiveSheet.PageSetup
.LeftHeader = "" '左側ヘッダー：なし
.CenterHeader = "" '中央ヘッダー：なし
.RightHeader = "&""HGPｺﾞｼｯｸM""&09&U" & "お客様控" '右側ヘッダー：フォント＠HGPｺﾞｼｯｸM、フォントサイズ＠09、下線月で“お客様控”を表示
.LeftFooter = "" '左側フッター：なし
.CenterFooter = "" '中央ヘッダー：なし
.RightFooter = "" '右側フッター：なし

End With

'Sub 作業中シートPDF出力()

ActiveSheet.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=ActiveWorkbook.Path & "\" & "作業中シート1.pdf", _
OpenAfterPublish:=True

3 ：1：2023/08/18(金) 10:55:18.14 .net

'弊社控ページ
'ヘッダー・フッターの指定
With ActiveSheet.PageSetup
.LeftHeader = "" '左側ヘッダー：なし
.CenterHeader = "" '中央ヘッダー：なし
.RightHeader = "&""HGPｺﾞｼｯｸM""&09&U" & "弊社控" '右側ヘッダー：フォント＠HGPｺﾞｼｯｸM、フォントサイズ＠09、下線月で“弊社控”を表示
.LeftFooter = "" '左側フッター：なし
.CenterFooter = "" '中央ヘッダー：なし
.RightFooter = "" '右側フッター：なし

End With

'Sub 作業中シートPDF出力()

ActiveSheet.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=ActiveWorkbook.Path & "\" & "作業中シート1.pdf", _
OpenAfterPublish:=True

End Sub

4 ：ぴころ ◆lHG3Yzo0a6 ：2023/08/19(土) 09:19:37.97 .net

ふ～（＾▽＾）

5 ：名無しさん＠そうだ選挙にいこう：2023/08/20(日) 04:04:39.42 .net

PDF印刷直前にそのシートをコピーして2つのシートにし、元のシートのヘッダーをお客様控え、コピーしたシートのヘッダーを弊社控えに設定し2つのシートをPDF出力。
出力が終わったらコピーしたシートを消去する、というのでどう？

6 ：名無しさん＠そうだ選挙にいこう：2023/08/20(日) 14:18:42.97 .net

複数のPDFをひとつのファイルにまとめるのは、有料のAdobe Acrobatを使うか、若しくは
オンラインでファイル結合させるかの二つの選択肢しか無い
https://www.adobe.com/jp/acrobat/online/merge-pdf.html
VBAで同じファイル名を指定すればひとつにまとまると思い込んだのがそもそもの間違い

こんな方法もあるが、より複雑に成って行ってしまうので、アプデとかで混乱の元
https://pdf.wondershare.jp/pdf-trim/merge-pdf-soft.html　　シンプルイズベスト

7 ：名無しさん＠そうだ選挙にいこう：2023/09/19(火) 03:09:36.64 .net

あかん、どうしようもないわ