DevTrain Startseite SharePoint Camp ? In 5 Tagen zum SharePoint Profi!  
  
  
SUCHEN:  
ARTIKEL ONLINE: 525   

Kategorien
.NET
Datenbanken
Web
XML

Allgemein
Camp
Foren
Events
Persönliche Einstellungen
Registrieren
Prämien Shop
Kontakt
Impressum
Über DevTrain

Autoren



 

Forum: Visual Basic | Thema: AW: Standarddrucker | Von: Thomas Scherner ( 12.12.2006 14:42)

Hey ich nochmal.
Vielleicht ist das noch besser :-)

'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


Druckerwechsel und Ausdruck starten


Im Form_Load-Ereignis des Druckerauswahl-Fensters wird die ComboBox zunächst mit allen verfügbaren Druckern gefüllt.

Private Sub Form_Load()
GetPrinters Combo1
End Sub



'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


Ich bin ein Newbie . Aber jeder hat mal angefangen. Gruß & Dank Thomas

Betreff Von Datum
AW: AW: Standarddrucker
Hallo Thomas,<br>danke für deien Mühe... hab ich gut gebrauchen können....
M Merlin 13.12.2006 08:37

Antworten
Vorsicht bei der Eingabe: Die Zeichen ' oder -- sind nicht erlaubt!

 Betreff:
 Nachricht: Den Beitrag finden Sie nun unter: http://beta.devtrain.de/foren Die Benutzerdaten und Foreninhalte von beta.devtrain.de und www.devtrain.de sind die selben.
Sie können sich dort sogar per RSS über neue Inhalte informieren lassen.
Bei Problemen bitte direkt Mail an asp [AT] ppedv.de.

 Signatur:

  



Login
Username:


Passwort:






Passwort vergessen?

Visual Studio 1 Magazin

© Copyright 2003 ppedv AG