会社に資料が一覧になっているExcelがあります 一列ごとに、名前と資料ファイルへのリンクが並んでいます 資料ファイルへのリンクを押すとフォルダが開きTIFファイルが出てきます

Excel | Visual Basic96閲覧xmlns="http://www.w3.org/2000/svg">50

ベストアンサー

0

ThanksImg質問者からのお礼コメント

この方法では1枚しか印刷できませんでした 改めて質問し直したいと思います ご回答ありがとうございました

お礼日時:6/23 22:16

その他の回答(1件)

0

Private Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _ ByVal hwnd As Long, _ ByVal lpOperation As String, _ ByVal lpFile As String, _ ByVal lpParameters As String, _ ByVal lpDirectory As String, _ ByVal nShowCmd As Long) As Long Private Const SW_HIDE As Long = 0 Private Const SW_SHOWNORMAL As Long = 1 Private Const SW_SHOWMAXIMIZED As Long = 3 Private Const SW_SHOWMINIMIZED As Long = 2 Public Sub 既定のアプリケーションで印刷(ファイルパス As String) Debug.Print ShellExecute(Application.hwnd, "print", ファイルパス, vbNullString, "", 0) End Sub Sub Example() Call 既定のアプリケーションで印刷("C:\Users\hoge\Desktop\test.txt") End Sub

既定のアプリケーション側でプレビュー無しですぐに印刷するように設定できるのであれば、操作は一切要らない。