Excelのマクロに詳しい人ちょっと来てくれ (7ﾚｽ)
上下前次1-新
1(3): 1 2023/08/18(金)10:53 AAS
質問不可のスレしか見つからなくて、本スレがどこにあるのかわからなかったのと、過去スレで類似があるか調べた感じわからなかったので、スレ立てさせていただきました。
お聞きしたいのは、１つのシートを複数枚PDF出力する際に１つのPDFファイルとして纏まった状態で出力する方法です
現状は次レスのコードを使用していますが、これだと、控えがそれぞれ別のPDFとして出力されてしまいます。
これでも仕事に支障があるわけではありませんが、できれば纏めた状態で出力したいので、詳しい方いましたらよろしくお願いします。
2: 1 2023/08/18(金)10:54 AAS
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 AAS
'弊社控ページ
'ヘッダー・フッターの指定
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 AAS
ふ～（＾▽＾）
5: 2023/08/20(日)04:04 AAS
PDF印刷直前にそのシートをコピーして2つのシートにし、元のシートのヘッダーをお客様控え、コピーしたシートのヘッダーを弊社控えに設定し2つのシートをPDF出力。
出力が終わったらコピーしたシートを消去する、というのでどう？
6: 2023/08/20(日)14:18 AAS
複数のPDFをひとつのファイルにまとめるのは、有料のAdobe Acrobatを使うか、若しくは
オンラインでファイル結合させるかの二つの選択肢しか無い
外部ﾘﾝｸ[html]:www.adobe.com
VBAで同じファイル名を指定すればひとつにまとまると思い込んだのがそもそもの間違い
こんな方法もあるが、より複雑に成って行ってしまうので、アプデとかで混乱の元
外部ﾘﾝｸ[html]:pdf.wondershare.jp シンプルイズベスト
7: 2023/09/19(火)03:09 AAS
あかん、どうしようもないわ
上下前次1-新書関写板覧索設栞歴
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ
ぬこの手 ぬこTOP 0.226s*