DevTrain Forum - AW: Standarddrucker

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!