Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

27857 / 76736

←次へ　｜　前へ→


	【54192】EXCELからVISIOを印刷するには

アース - 08/2/28(木) 23:11 -


	引用なし

	パスワード

EXCELのマクロでVISIOドキュメントを開いて印刷実行したいのですが、VISIO2007では全頁印刷されましたが、VISIO2003では1頁しか印刷されませんでした。どのように修正すれば良いでしょうか？

Dim oHnd As Object
visPrintAll=0
Set oHnd = CreateObject("Visio.application") 'Visio起動
oHnd.Visible = True 'Visio表示
i = 4
While (Cells(i, 2).Value <> "")　
visio_doc = Cells(i, 2).Value　　'Visioファイル名
Set visDoc = oHnd.documents.Open(visio_doc)
oHnd.ActiveDocument.PrintOut PrintRange:=visPrintAll
visDoc.Close

i = i + 1
Wend

0 hits

▼

【54192】EXCELからVISIOを印刷するには アース 08/2/28(木) 23:11

≪