７．関連付け起動によるファイルの印刷

１．関連付け起動によるファイルの印刷 ２． ３．　 ４．　 ５．　 ６．

下記プログラムコードに関する補足・注意事項　 動作確認：Windows Vista・Windows 7 (32bit) / VB6.0(SP6) Option　：[Option Explicit] 参照設定：追加なし 使用 API：ShellExecute その他　：このサンプルは、 Win32 APIを使用しておりますので、ある程度Win32 API が理解できる方がお使い下さい。 　　　　： Win32 API とは 　Win32 Application Programming Interfaces の略で、32bit プロセッサで動作する Windows 95 等、以降用に対応するアプリケーションの開発者のために、公開されている関数を指します。 尚、Visual Basic 2010 等の .NET 系のバージョンや VBA からも使用する事ができます。 　ここでは、略して Win32 API　とか　Win32 API 関数 とか表示スペースの関係から　API　と表記する場合があります。

１．関連付け起動によるファイルの印刷(134)　　2002.05.22

Option Explicit　　 '拡張子に関連付けられたプログラムを実行する(P699) Private Declare 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 = 0 'ウィンドウをアクティブ化し表示(元の位置とサイズで復元) Private Const SW_RESTORE = 9 'ウィンドウをアクティブ化し最大表示する Private Const SW_SHOWMAXIMIZED = 3 Private Sub Command1_Click() 'lpOperation に"Print"を指定することで関連付け起動で印刷 　　Dim lngResult As Long 　　Dim MyFile　　As String 　　MyFile = Trim$(Text1.Text)　'ファイルのPATHを取得 　　　　lngResult = ShellExecute(Me.hwnd, "Print", MyFile, _ 　　　　　　　　　　　　vbNullString, vbNullString, SW_HIDE) 　　If lngResult < 32 Then 　　　　MsgBox "エラーが発生しました　正しいフォルダー名を指定して下さい" 　　End If End Sub ShellExecute API については、関連付けされたファイルを起動で解説しております。 関連付け起動と同じで　"Open"　の部分を　"Print"　を指定しただけです。 　これで、直接アプリを立ち上げてファイルを読み込んで印刷していたのが、関連付け起動と同じくファイルを指定するだけで関連付けされたアプリの印刷機能で印刷ができます。 xls ファイルや htm ファイル等も、勿論印刷できますので色々試して見て下さい。

２．

３．

４．

５．

６．

検索キーワード及びサンプルコードの別名(機能名)

VBで簡単印刷設定　Visual Basic で簡単な方法で印刷　VBから他のアプリのファイルを印刷する　関連付けられたアプリケーションで印刷する