自分メモ用

コピペ元にはスペースや改行がたくさんあったはずだけど？

Bullzip PDF Printer を使用してのPDF結合の仕方

Bullzip PDF Printer とはPDFファイルを作成できるフリーのソフト。
仮想プリンタドライバ。

詳しくはBullzip PDF Printer で検索すると説明が書いてあるサイトがあります。

私はaccessの複数のレポートをPDF化して1つのPDFファイルを作りたかったので色々調べました。
phpからの結合とかのサイトはあるもののaccessについてはほとんど記述がなく
仕方ないので英語マニュアルを翻訳して試行錯誤。
翻訳なのでおかしい表現いっぱいで意味不だった・・・。

とりあえず以下のサイトを一通り見てください。
ttp://gigazine.net/news/20080116_bullzip_pdf_printer/
ttp://www.f3.dion.ne.jp/~element/msaccess/AcTipsRptBullZip.html

まず、通常使うプリンタの設定を「Bullzip PDF Printer」に変更

' プリンタ設定を変更
Set Application.Printer = Application.Printers("Bullzip PDF Printer")

次に複数あるレポートをPDF化。
10個レポートがあったら10個のPDFファイルを作ります。

For i = 0 To 9
　　　　With New Bullzip.PDFPrinterSettings

　　　　'ファイル名設定
　　　　strFolder = "pdf保存場所\" & i & ".pdf"

　　　　' 出力ファイルのパス
　　　　.SetValue "output", strFolder

　　　　' 各種ダイアログの表示を抑止
　　　　.SetValue "ConfirmOverwrite", "no" ' 上書き確認
　　　　.SetValue "ShowSaveAS", "never" ' 名前を付けて保存
　　　　.SetValue "ShowSettings", "never" ' ファイル設定
　　　　.SetValue "ShowPDF", "no" ' 出力後の PDF 表示
　　　　.SetValue "ShowProgress", "no" ' タスクトレイの進捗インジケータ
　　　　.SetValue "ShowProgressFinished", "no" ' タスクトレイの完了バルーン

　　　　'文書情報を設定
　　　　.SetValue "Title", "タイトル" & i ' タイトル
　　　　.SetValue "Author", "作成者" & i ' 作成者

　　　　' 一時設定として保存
　　　　.WriteSettings isRunOnce:=True

　　　　' 出力
　　　　DoCmd_OpenReport i, acViewNormal, SuppressPrintingDialog:=True

　　　　' 完了を待機
　　　　strIni = .GetSettingsFileName(isRunOnce:=True) ' 一時設定ファイルのパスを取得

　　　　Do While Len(Dir$(strIni)) ' 削除されるまでループ
　　　　Sleep 500 ' 0.5 秒待機
　　　　Loop
　　　　End With
Next

みたいな感じで作ると9個のレポートから9個のPDFファイルが作成されます。

全部で10個のPDFファイルを結合する場合
「｜」で区切るが最後のレポートは印刷ジョブ実行で使用する。

With New Bullzip.PDFPrinterSettings
　　　　'----------------------------------------------------------------
　　　　'この部分が上記と違う部分
　　　　'マージ処理
　　　　.SetValue "MergeFile", "1.pdf | 2.pdf | 3.pdf | 4.pdf | 5.pdf | 6.pdf | 7.pdf | 8.pdf | 9.pdf"
　　　　.SetValue "MergePosition", "bottom"
　　　　.SetValue "ShowSettings", "never"
　　　　'----------------------------------------------------------------

　　　　' 出力ファイルのパス
　　　　.SetValue "output", "結合後のファイル名"

　　　　' 各種ダイアログの表示を抑止
　　　　.SetValue "ConfirmOverwrite", "no" ' 上書き確認
　　　　.SetValue "ShowSaveAS", "never" ' 名前を付けて保存
　　　　.SetValue "ShowSettings", "never" ' ファイル設定
　　　　.SetValue "ShowPDF", "no" ' 出力後の PDF 表示
　　　　.SetValue "ShowProgress", "no" ' タスクトレイの進捗インジケータ
　　　　.SetValue "ShowProgressFinished", "no" ' タスクトレイの完了バルーン

　　　　'文書情報を設定
　　　　.SetValue "Title", "タイトル"　　　　' タイトル
　　　　.SetValue "Author", "作成者" 　　' 作成者

　　　　' 一時設定として保存
　　　　.WriteSettings isRunOnce:=True

　　　　' 出力 ---- 最後のレポートを出力する
　　　　DoCmd_OpenReport "10", acViewNormal, SuppressPrintingDialog:=True

　　　　' 完了を待機
　　　　strIni = .GetSettingsFileName(isRunOnce:=True) ' 一時設定ファイルのパスを取得
　　　　Do While Len(Dir$(strIni)) ' 削除されるまでループ
　　　　　　　　Sleep 500 ' 0.5 秒待機
　　　　Loop
End With

１位　Ｂ’ｚの稲葉さん

２位　プルシェンコたん

３位　小塚君

４位　真央ちゃん

『死ぬまでに会いたい』だと夢が壊れる可能性があるのである一定の年齢。

対象によって一定の年齢は変動する。

ピグライフにはまった年でした。

来年もいい年になりますように。

でもまだ赤ちゃん赤ちゃんしてますよ。

あっという間に大きくなっちゃうからまだまだ赤ちゃんでもいいかな？

ミーは年中さん。ちょっぴりお姉さんな感じかしら？

リーは赤ちゃんクラス。２４日で１歳なのにハイハイは最近出来るようになったし、めっさ泣き虫の甘えん坊さん。

それぞれ別の保育園です。

リーの慣らし保育は今日から。

受け入れ時だけみんなにつられて泣いたみたいだけど、

お散歩はご機嫌、ご飯も食べて泣かずに良い子に過ごせたみたいです。

お迎えに行ったらちんまり座ってご飯食べてた。

とても可愛かった

ちんまり萌え