Textdatei ausdrucken ohne die Datei zu öffnen VB-Version:  VB5, VB6
	Views:  16.669

Immer wieder wird im Forum gefragt: "Wie kann ich eine Textdatei ausdrucken ohne diese zu öffnen und an das Printerobjekt senden zu müssen?".

Am Einfachsten geht das mal wieder mit Hilfe einer API, und zwar der ShellExecute-API. Hiermit kann man dann die Datei automatisch von der im System mit der Datei verknüpften Anwendung ausdrucken lassen:

' benötigte API-Deklaration
Private Declare Function ShellExecute Lib "shell32.dll" _
    Alias "ShellExecuteA" (ByVal hWnd As Long, _
    ByVal lOperation As String, _
    ByVal lpFile As String, _
    ByVal lpParameters As String, _
    ByVal lpDirectory As String, _
    ByVal nShowCmd As Long) As Long

Der Aufruf erfolgt dann so:

ShellExecute Me.hWnd, "print", "pfad+dateiname", "", "", 1