Über die Printers-Auflistung lassen sich alle im System installierten Drucker ermitteln. Sind mehrere Drucker installiert, so bietet es sich an, alle verfügbaren Drucker z.B. in einer ComboBox anzuzeigen, so daß der Ausdruck gezielt auf einen bestimmten Drucker erfolgen kann. ' Ermitteln aller verfügbaren Drucker ' und füllen der ComboBox Public Sub GetPrinters(Combo As Control) Dim x As Integer For x = 0 To Printers.Count - 1 Combo1.AddItem Printers(x).DeviceName Next x ' Standarddrucker voreinstellen For x = 0 To Combo1.ListCount - 1 If Combo1.List(x) = Printer.DeviceName Then Combo1.ListIndex = x Exit For End If Next x End Sub ' Festlegen des Druckers für den Ausdruck ' Erwartet wird als Parameter die im System verwendete ' Bezeichnung des Druckers ' ' Rückgabewert: True = OK ' False = Drucker nicht gefunden Private Function SetPrinter(ByVal prnName As String) _ As Boolean Dim Result As Boolean Dim x As Integer Result = False If Printers.Count > 0 Then For x = 0 To Printers.Count - 1 If Printers(x).DeviceName = prnName Then Set Printer = Printers(x) Result = True Exit For End If Next x End If SetPrinter = Result End Function Beispiel: Private Sub Form_Load() GetPrinters Combo1 End Sub Druckerwechsel und Ausdruck starten ' zunächst aktuell verwendeten Drucker "merken" Dim stdPrinter As String stdPrinter = Printer.DeviceName ' Druckerwechsel und Ausdruck starten If SetPrinter(Combo1.Text) Then Printer.Print "Test" ... Printer.EndDoc End If ' "alten" Drucker wieder als Standard festlegen SetPrinter stdPrinter Dieser Tipp wurde bereits 43.614 mal aufgerufen. Voriger Tipp | Zufälliger Tipp | Nächster Tipp
Anzeige
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. |
Neu! sevDTA 3.0 Pro SEPA mit Kontonummernprüfung Erstellen von SEPA-Dateien mit integriertem BIC-Verzeichnis und Konto- nummern-Prüfverfahren, so dass ungültige Bankdaten bereits im Vorfeld ermittelt werden können. Tipp des Monats April 2024 Skyfloy Chart von Microsoft und dazu noch gratis Tutorial für Microsoft Chart Controls für Microsoft .NET Framework 3.5 Access-Tools Vol.1 Über 400 MByte Inhalt Mehr als 250 Access-Beispiele, 25 Add-Ins und ActiveX-Komponenten, 16 VB-Projekt inkl. Source, mehr als 320 Tipps & Tricks für Access und VB |
||||||||||||||||
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. |