目安箱 IV

目安箱投稿のルールはこちらをごらんください。
ご意見は電子メールで承っています。
「目安箱」は質問禁止です。技術的な質問はそれぞれの質問箱へどうぞ。

迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

┃ ┃ ┃ ┃ ┃ ┃

100 / 277

←次へ　｜　前へ→

【192】Re:IllustratorをVBAで操作するには (基本編_印刷)

ちくたく

- 07/3/16(金) 11:18 -


	引用なし

	パスワード

こんにちは。
しつこく、続けてみます。
フォルダの中に入ったIllustratorを印刷するスクリプトです。
こんなことしなくても、右クリックからできそうですが、
お遊びで。

Sub フォルダの中のaiファイルを全て印刷()

　　Dim illApp As New Illustrator.Application
　　Dim myDoc As Illustrator.Document
　　Dim myDir As String, fileName As String
　　Dim pOk As Integer
　　
　　'イラストレータファイルが入ったフォルダを指定。
　　myDir = "C:\tmp\"
　　
　　fileName = Dir(myDir & "*.ai", vbNormal)
　　
　　pOk = MsgBox("印刷設定はよろしいですか？", vbOKCancel, "印刷の確認")
　　If pOk = vbCancel Then Exit Sub
　　
　　Do While fileName <> ""　　　　　　　　 'フォルダの中をファイルがなくなるまで調べる。
　　　　illApp.Open (myDir & fileName)　　　'イラストレータのファイルを開いて、
　　　　Set myDoc = illApp.ActiveDocument　 '開かれたファイルを、
　　　　docRef.PrintOut (False)　　　　　　 '印刷。ダイアログは表示しない。
　　　　fileName = Dir　　　　　　　　　　　'そして、次のファイルを探す。
　　Loop
　　
　　illApp.Quit　　 'イラストレータを終了。

End Sub

2,553 hits