掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
VBプログラムから別のプログラムを起動後、印刷ダイアログを表示するには？ (ID:77796)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
WshShellを使用し何とか解決しました。 ご参考までに。ちなみに私初心者のため書き方はお許しを・・・ Sub bar_Print() Label_Path = "C:\Label5.lbl" Set mac = parent.frame1 mr = CInt(mac.document.all.item("maxrow").value) '//行数 Dim WshShell,WS,ret Set WS = CreateObject("XXXXXXX.Workspace") 'XXXXはソフト名のため省略 set WshShell = CreateObject("WScript.Shell") Set LB = WS.Labels.OpenLabel(Label_Path) 'ラベルテンプレートの表示 Set DS = LB.datasheet 'dataシートへの切り替え WS.WindowState = 2 '画面の最大化 DS.Record = 1 For i = 1 To mr DS.AddRecord DS.Field = 1 DS.Text = mac.document.all.item("da" & i).value DS.Field = 2 DS.Text = mac.document.all.item("db" & i).value DS.Field = 3 DS.Text = mac.document.all.item("dd" & i).value DS.Record = DS.Record + 1 Next WshShell.sendkeys "%FP" End Sub 遅くなりましたが・・【たかみちえさん】ありがとうございました
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2020 Takeshi Okamoto All Rights Reserved.