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
あかん、どうしようもないわ