Adobe7.0 エクセルPDF化 シート一括分割方法

質問

お世話になります。
初めて『PDF化』をしています。。。
ソフトはAdobe7.0です。

エクセルの複数のSheetをそれぞれ分割して
PDFに起こしたいのですが、
Sheet全てを一括してPDF化することは出来ますでしょうか。。。

今、sheet一枚一枚を選択して
それぞれを印刷する要領で保存していますが
50個以上のsheetがあり、
キレる寸前です。。

どなたか救ってください。
よろしくお願いいたします。

回答No.3

driverII · ベストアンサー

例として、下記のようになりますかね。実行したわけではないので動かないかもしれません。細かいところはVBヘルプを見て直してください。

Dim i as integer

Application.ActivePrinter = "クセロPDF on Ne00:"
For i = 1 to ActiveWorkbook.Sheets.Count
ActiveWorkbook.Sheets(i).PrintOut Copies:=1, ActivePrinter:= _
"クセロPDF on Ne00:", Collate:=True
next i

お礼

できました！！
少し変更を加え、無事マクロで動かすことができました！！！

ご丁寧に本当にありがとうございました。

回答No.2

driverII

>>ファイル内のsheet一つ一つを
>>sheetごとで分割してPDF化し
>>Sheet名で保存する方法はお分かりになりますか？？

これもやはり印刷でPDF化するものであれば、
ちょっとしたマクロを書けば、可能です。

マクロが苦手であれば、マクロの記録を使って、一つPDF変換し、記録を停止すれば、そのマクロが出来ます。
それをコピペで50個作って、シート名を変えれば可能ですね。
また、sheets(1)などを使えばループでまわすことが可能でそれでもいけるとは思います。

補足

お世話になります！(>o<")
マクロは全くやったことがありません。
昨日少ーーーしだけ勉強して、
以下の表記は出ました。
『ループ』はどこに何を入れればよいのでしょうか？
(>o<")
お手数ですがどうぞよろしくお願い致します！

Sub Macro1()
'
' Macro1 Macro
' マクロ記録日 : 2006/12/18 ユーザー名 : ★'

'
Application.ActivePrinter = "クセロPDF on Ne00:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"クセロPDF on Ne00:", Collate:=True
End Sub

回答No.1

driverII

印刷でPDF化するものであれば、Excel 印刷時に印刷範囲で全てを選択すれば、一括して変換できます。

ファイル＞印刷...(&P)＞印刷範囲を全てに。

また最初のシートのラベルを選択し、最後のシートのラベルをShiftキーを押しながら選択すると、作業グループが出来ますので、それで印刷でもいけるかなと思います。

参考URLのソフトでPDFの分割・結合が出来ます。

参考URL：

http://homepage3.nifty.com/e-papy/p3.html

お礼

早々の回答有難うございます(>o<")

ファイル内のsheet一つ一つを
sheetごとで分割してPDF化し
Sheet名で保存する方法はお分かりになりますか？？