Dokumente mit verknüpfter Anwendung drucken Eine kleine Funktion, mit der sich ein beliebiges Dokument mit der im System verknüpften Anwendung drucken lässt.
Autor:   Dieter Otter	Bewertung:     [ Jetzt bewerten ]	Views:  10.847
https://www.tools4vb.com	System:  Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 1 Bewertung insgesamt: nützlich Durchschnittliche Bewertung: 3.0 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Immer wieder ein Thema: Wie druckt man am einfachsten ein PDF-Dokument, eine Word-Datei oder eine TXT-Datei aus?

Die einfachste Möglichkeit besteht wohl darin, das Dokument direkt von der im System verknüpften Anwendung ausdrucken zu lassen. Und genau das erledigt nachfolgende Funktion für uns:

''' <summary>
''' Ruft die mit dem Dokument verknüpfte Anwendung auf, um es auszudrucken
''' </summary>
''' <param name="Filename">vollständiger Dateiname des Dokuments</param>
''' <returns>True, wenn das Dokument mit einer Anwendung verknüpft ist
''' False, wenn im System keine verknüpfte Anwendung gefunden wurde</returns>
Public Function PrintDoc(ByVal Filename As String) As Boolean
  Try
    Dim pInfo As New Diagnostics.ProcessStartInfo
    With pInfo
      ' Dateiname übergeben
      .FileName = Filename
 
      ' Dokument soll gedruckt werden
      .Verb = "print"
    End With
 
    ' Verknüpfte Anwendung mit Druckbefehl aufrufen
    Process.Start(pInfo)
 
    ' Rückgabewert
    Return True
 
  Catch ex As Exception
    ' keine Anwendung gefunden, mit der das Dokument 
    ' im System verknüpft ist
    Return False
  End Try
End Function

Aufrufbeispiel:

Dim sFile As String = "d:\document.pdf"
If Not PrintDoc(sFile) Then
  MsgBox("Keine Anwendung gefunden, die mit dem Dokumenttyp im System verknüpft ist!", _
    MsgBoxStyle.Exclamation)
End If