拡張子を気にせず印刷する

私の職場では会議資料などを印刷する時、Excelファイル以外にも WordファイルやらPDFファイルやらが混ざっている事があります。 そこで拡張子を気にせず、一気に印刷するマクロを作ってみました。 WindowsAPIを使って、関連付けられたアプリケーションで印刷を行います。 サンプルコード1 '◆APIの宣言 Declare Function ShellExecute Lib "SHELL32" 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 Sub ファイル

[linden]

Excelでリストアップしたファイルを関連付けされたアプリで一気に印刷するマクロ。ちょうど自分でつくろうか迷ってたら、作って公開してる人がいた。