vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#

https://www.vbarchiv.net
Rubrik: Drucker   |   VB-Versionen: VB2005, VB200805.11.09
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 OtterBewertung:  Views:  10.310 
www.tools4vb.deSystem:  Win2k, WinXP, Win7, Win8, Win10, Win11 Beispielprojekt auf CD 

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



Anzeige

Kauftipp Unser Dauerbrenner!Diesen und auch alle anderen Tipps & Tricks finden Sie auch auf unserer aktuellen vb@rchiv  Vol.6
(einschl. Beispielprojekt!)

Ein absolutes Muss - Geballtes Wissen aus mehr als 8 Jahren vb@rchiv!
- nahezu alle Tipps & Tricks und Workshops mit Beispielprojekten
- Symbol-Galerie mit mehr als 3.200 Icons im modernen Look
Weitere Infos - 4 Entwickler-Vollversionen (u.a. sevFTP für .NET), Online-Update-Funktion u.v.m.
 
 
Copyright ©2000-2024 vb@rchiv Dieter OtterAlle Rechte vorbehalten.


Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.