Excel VBA質問箱 IV

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

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


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

27819 / 76732

←次へ　｜　前へ→


	【54228】Re:EXCELからVISIOを印刷するには

アース - 08/3/1(土) 7:29 -


	引用なし

	パスワード

▼りんさん：

回答ありがとうございます。

> visDoc.PrintOut PrintRange:=0 'visPrintAllはVisioO固有の列挙なので(=0ですけどね)

会社にしかVISOが無いので試せないんですが、上記のように指定しても
うまくいかなったような気がします。
又、前景頁を順次アクティブにしてカレントページ印刷指定にすると
最初の頁がページ数分印刷されてしまいました。
つまり、PageRangeの指定が無効になっているような動きをします。
他の方から以下のようにすると良いとのアドバイスをいただきましたので
それで試してみたいと思います。
oHnd.ActiveDocument.PrintOut PrintRange:=visPrintAll
を
Dim dummy
dummy = visdoc.Print
に変更する。

1 hits

▼

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