Druckt trotzdem auch nach exit sub
18.02.2009 22:52:00
Leon
So, bald habe ich es geschafft, sofern dieses kleine Problem auch noch beseitigt werden kann.
Wenn ich keinen Drucker in der Combobox ausgewählt habe da der Laptop nicht im Netz angeschlossen ist, wird trotzdem gedruck.
Private Sub CommandButton1_Click() 'Netzwerkdrucker
Dim varPrintTable() As String
Dim iTable As Integer, iVar As Integer
Dim sOldPrinter As String
sOldPrinter = Application.ActivePrinter ' Alten Drucker merken
On Error GoTo Fehler:
If ComboBox1.ListIndex = -1 Then
MsgBox "Kein Printer gewählt", 64, "Drucken auf Netzwerk"
Exit Sub
End If
iVar = 1
For iTable = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(iTable) Then
ReDim Preserve varPrintTable(iVar)
varPrintTable(iVar) = ListBox1.List(iTable)
iVar = iVar + 1
End If
Next iTable
If iVar = 1 Then
MsgBox "Es ist kein Tabellenblatt zum Drucken gewählt!"
Else
Sheets(varPrintTable).PrintOut
End If
Aufraeumen:
Application.ActivePrinter = sOldPrinter ' Wieder zurücksetzen
Exit Sub
Fehler:
MsgBox Err.Description
Resume Aufraeumen
End Sub
Was mache ich falsch ? Sage doch, dass er exit sub macht wenn kein Drucker ausgewählt.
Gruß
Leon