23/08/18 10:53:48.52 .net
質問不可のスレしか見つからなくて、本スレがどこにあるのかわからなかったのと、過去スレで類似があるか調べた感じわからなかったので、スレ立てさせていただきました。
お聞きしたいのは、１つのシートを複数枚PDF出力する際に１つのPDFファイルとして纏まった状態で出力する方法です
現状は次レスのコードを使用していますが、これだと、控えがそれぞれ別のPDFとして出力されてしまいます。
これでも仕事に支障があるわけではありませんが、できれば纏めた状態で出力したいので、詳しい方いましたらよろしくお願いします。
2:1
23/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
23/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
23/08/19 09:19:37.97 .net
ふ～（＾▽＾）
5:名無しさん＠そうだ選挙にいこう
23/08/20 04:04:39.42 .net
PDF印刷直前にそのシートをコピーして2つのシートにし、元のシートのヘッダーをお客様控え、コピーしたシートのヘッダーを弊社控えに設定し2つのシートをPDF出力。
出力が終わったらコピーしたシートを消去する、というのでどう？
6:名無しさん＠そうだ選挙にいこう
23/08/20 14:18:42.97 .net
複数のPDFをひとつのファイルにまとめるのは、有料のAdobe Acrobatを使うか、若しくは
オンラインでファイル結合させるかの二つの選択肢しか無い
URLﾘﾝｸ(www.adobe.com)
VBAで同じファイル名を指定すればひとつにまとまると思い込んだのがそもそもの間違い
こんな方法もあるが、より複雑に成って行ってしまうので、アプデとかで混乱の元
URLﾘﾝｸ(pdf.wondershare.jp) シンプルイズベスト
7:名無しさん＠そうだ選挙にいこう
23/09/19 03:09:36.64 .net
あかん、どうしようもないわ