Drucken von einigen Tabellen in einer Mappe

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub DruckenFilialenB() 'Druckt sichtbare Filialen-Blätter als gruppierte Blätter Dim iI As Integer, arrTemp() As String, wb As Workbook, ws As Worksheet Set wb = ActiveWorkbook 'Sichtbare Filialblatt-namen in Array speichern For Each ws In wb.Worksheets If Left(ws.Name, 7) = "Filiale" And ws.Visible = xlSheetVisible Then iI = iI + 1 ReDim Preserve arrTemp(1 To iI) arrTemp(iI) = ws.Name End If Next ' wb.Worksheets(arrTemp).PrintPreview wb.Worksheets(arrTemp).PrintOut 'gruppierung aufheben Application.Worksheets(arrTemp(1)).Select End Sub Sub DruckenFilialenA() 'Druckt sichtbare Filialen-Blätter als Einzel-Blätter Dim wb As Workbook, ws As Worksheet Set wb = ActiveWorkbook For Each ws In wb.Worksheets If Left(ws.Name, 7) = "Filiale" And ws.Visible = xlSheetVisible Then ' ws.PrintPreview ws.PrintOut End If Next End Sub

Hallo Franz,
Vielen Dank für Deine schnelle Antwort.
Es konnte hinhauen, zur Zeit bekomme ich in einen Code Fehler und in anderen passiert nichts.
Du hast es fast richtig zusammen gebaut wie es mir passen konnte.
Der erste Code "DruckenFilialenB" meldet Fehler in Schleife "wb.Worksheets(arrTemp).PrintOut"
als "Laufzeitfehler 13 Typen unverträglich".
In zweiten Code "DruckenFilialenA", passiert eigentlich gar nichts, keine Fehler Meldung.
Da probierte ich Schrittweise mit "F8" es wird alles abgeschliefen im Code aber es wird leider nichts gedruckt.
Drucker ist eingeschaltet und als ein einzige Drucker an meinen PC instaliert.
Der Code "DruckenFilialenA" konnte der richtige für mich sein weil er "'druckt sichtbare Filialen-Blätter als Einzel-Blätter", das habe ich leider vergessen zum betonen.
Habe das CD von Hans gekauft aber leider so ein Beispiel ist nicht drinnen.
Anhand Deine Code kann ich feststellen das Du Dich viel mehr auskennst als ich (der VBA Anfänger).
Fals Du den Code "DruckenFilialenA" zum laufen bringen konntest, ist es möglich das Du mir in ein Beispiel als auskomentiert, zeigst wie man ein bestimmten Drucker ansprechen konnte (im Falle daß ich mehrere Drucker am PC angeschlossen habe).
Ich danke Dir für den ersten Anhieb und Deine Mühe
Netten Gruß Marko

Hallo Marko,
bei mir unter Excel 2003 funktionieren die VBA-Makros. Mit Seitenvorschau und mit Drucken.
Wo Excel 2007 Probleme hat weiss ich nicht genau.
Bei Variante A hab ich keine Idee, warum nicht gedruckt wird.
In Variante B hab ich den Variablentyp des Arrays auf Variant geändert, da die Blätter im Array durch Name oder Nummer angesprochen werden können. Zusätzlich eine Prüfung ob Blätter gefundnen wurden.
Um den korrekten Namen deines Druckers angegebn zu können muss du den Druckvorgang mit Wechsel des Druckers mit dem Makro-Recorder aufzeichnen.
Gruß
Franz


Sub DruckenFilialenB()
'Druckt sichtbare Filialen-Blätter als gruppierte Blätter
Dim iI As Integer, arrTemp() As Variant, wb As Workbook, ws As Worksheet
Set wb = ActiveWorkbook
'Sichtbare Filialblatt-namen in Array speichern
For Each ws In wb.Worksheets
If Left(ws.Name, 7) = "Filiale" And ws.Visible = xlSheetVisible Then
iI = iI + 1
ReDim Preserve arrTemp(1 To iI)
arrTemp(iI) = ws.Name
End If
Next
If iI > 0 Then
'    wb.Worksheets(arrTemp).PrintPreview
wb.Worksheets(arrTemp).PrintOut
'gruppierung aufheben
Application.Worksheets(arrTemp(1)).Select
End If
End Sub
Sub DruckenFilialenA()
'Druckt sichtbare Filialen-Blätter als Einzel-Blätter
Dim wb As Workbook, ws As Worksheet, DruckerAktiv As String
Set wb = ActiveWorkbook
'DruckerAktiv = Application.ActivePrinter 'aktiven drucker merken
'Application.ActivePrinter = "HP LaserJet 4 auf LPT1:"
For Each ws In wb.Worksheets
If Left(ws.Name, 7) = "Filiale" And ws.Visible = xlSheetVisible Then
'      ws.PrintPreview
ws.PrintOut
End If
Next
'Application.ActivePrinter = DruckerAktiv 'Drucker zurücksetzen
End Sub

Beliebteste Forumthreads (12 Monate)

Drucken von einigen Tabellen in einer Mappe

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

278 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Drucken von einigen Tabellen in einer Mappe

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

278 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread