|
アース さん、こんばんわ。
>EXCELのマクロでVISIOドキュメントを開いて印刷実行したいのですが、VISIO2007では全頁印刷されましたが、VISIO2003では1頁しか印刷されませんでした。どのように修正すれば良いでしょうか?
うちにはVisio2007しかないので完全に試せてはいないのですが、MSDNでヘルプを見る限り、これで前景ページが全部出ないとおかしいですよね。
MSDN Visio2003 PrintOut
htt p://msdn.microsoft.com/library/ja/default.asp?url=/library/ja/Jpvssdk11/html/vimthPrintOut.asp
>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)
visDoc.PrintOut PrintRange:=0 'visPrintAllはVisioO固有の列挙なので(=0ですけどね)
>visDoc.Close
>
>i = i + 1
>Wend
どうですかね。
|
|