object.PrintOut (visPrintAll) で全ページ印刷が出来ない |
- 01: 名前:銀次郎投稿日:2007/03/07(水) 12:48
- アプリ VISIO2003SP2
こんにちは。お世話になっています。
VISIOドキュメントを、大量(ファイル数)に印刷しようとしています。
そのための自動化スクリプトをVISIOのVBAで書いたところです。
object.PrintOut (visPrintAll) で、objectにセットした前景ページ全てを
印刷してみたところ、カレントページしか印刷されません。
object.PrintOut (visPrintCurrentPage) のような動きをします。
visPrintAll を 値の 0 にして試しましたが同様です。
何か配慮が足りないのでしょうか?
Private Sub 印刷実行()
Dim objFile As Visio.Document
strFilePath = "C:\ドキュメント.vsd"
Set objFile = Documents.Open(strFilePath)
objFile.PrintOut (visPrintAll)
objFile.Close
strFilePath = ""
End Sub
- 02: 名前:銀次郎投稿日:2007/03/07(水) 13:09
- 自己レスです。
前景の前ページ印刷は
objFile.Print
でよかったんですね。
ただし、ダミーの変数?を入れないとNGでした。
objFile.PrintOut (visPrintAll)
↓
Dim dummy
dummy = objFile.Print
板汚し、失礼しました。
|
|