PDF資料のセット印刷について
いつもお世話になっております。
説明会用の資料を印刷し、セットしています。
しかし、200部、300部とセットするのが大変です。
そこで、印刷時にセットしておきたいと考えました。
エクセルのマクロで書きました。ウインドウズ７、エクセル2010です。
よろしくお願いします。
説明会の資料が7種類あります。
１と２は、両面白黒印刷、ホッチキス止め １３枚
３と４は、片面白黒印刷、ホッチキス止め １９枚
５ は、両面白黒印刷 両面で１枚
６ は、片面白黒印刷 1枚
７ は、片面カラー印刷 1枚
いろいろな掲示板で探したコードを書いてみました。
意味もあまりわかってないです。。。なので
５、６、７は、印刷できるのですが、３と４はタマにしか印刷できません。
なぜなのかわかりません。同じ環境で続けてマクロを実行しましたが
印刷できるときと、出来ない時があります。
１と２は、いつも印刷できません。
どうすればいいのか教えてください。
白黒印刷や、ホッチキス止めは、プリンターで設定しています。
プリンターの追加で5種類用意しました。
あと、１から７までを1セットとし、２０セット印刷したいのですが
どこでループをかけたらいいのかわかりません。
よろしくお願いします。
Sub 説明会資料PDF印刷()
Dim AA
Dim B1, B2, B3, B4, B5, B6, B7
Dim C1, C2, C3, C4, C5
Dim D1, D2, D3, D4, D5, D6, D7
Dim AAA As Object
Dim BB1, BB2, BB3, BB4, BB5, BB6, BB7
Dim i As Long
AA = "C:\Program Files\Adobe\Acrobat Reader DC\Reader\AcroRd32.exe /t "
B1 = "C:\説明会資料\説明会1.pdf"
B2 = "C:\説明会資料\説明会2.pdf"
B3 = "C:\説明会資料\説明会3.pdf"
B4 = "C:\説明会資料\説明会4.pdf"
B5 = "C:\説明会資料\説明会5.pdf"
B6 = "C:\説明会資料\説明会6.pdf"
B7 = "C:\説明会資料\説明会7.pdf"
C1 = "DocuCentre-V C3375(両面白黒ホッチキス)"
C2 = "DocuCentre-V C3375(片面白黒ホッチキス)"
C3 = "DocuCentre-V C3375(両面白黒)"
C4 = "DocuCentre-V C3375(モノクロ)"
C5 = "DocuCentre-V C3375(カラー)"
Set AAA = CreateObject("WScript.Shell")
D1 = AA & """" & B1 & """" & " " & """" & C1 & """"
Set BB1 = AAA.exec(D1)
On Error Resume Next
BB1.Terminate
Set BB1 = Nothing
D2 = AA & """" & B2 & """" & " " & """" & C1 & """"
Set BB2 = AAA.exec(D2)
BB2.Terminate
Set BB2 = Nothing
On Error Resume Next
D3 = AA & """" & B3 & """" & " " & """" & C2 & """"
Set BB3 = AAA.exec(D3)
BB3.Terminate
Set BB3 = Nothing
On Error Resume Next
D4 = AA & """" & B4 & """" & " " & """" & C2 & """"
Set BB4 = AAA.exec(D4)
On Error Resume Next
BB4.Terminate
Set BB4 = Nothing
D5 = AA & """" & B5 & """" & " " & """" & C3 & """"
Set BB5 = AAA.exec(D5)
On Error Resume Next
BB5.Terminate
Set BB5 = Nothing
D6 = AA & """" & B6 & """" & " " & """" & C4 & """"
Set BB6 = AAA.exec(D6)
On Error Resume Next
BB6.Terminate
Set BB6 = Nothing
D7 = AA & """" & B7 & """" & " " & """" & C5 & """"
Set BB7 = AAA.exec(D7)
On Error Resume Next
BB7.Terminate
Set BB7 = Nothing
Set AAA = Nothing
End Sub
お礼
ロイヤル通販見てきました。 千趣会と同じ値段で同じセット内容のようです。 やっぱどこも41800円かな。。。。。 2が欲しいということは最初のビューリで効果があったみたいですね。 ありがとうございました。