Thema Datum  Von Nutzer Rating
Antwort
11.07.2017 11:54:12 Sabine
NotSolved
Blau Getrenntes Drucken !DRINGEND!
 11.07.2017 20:12:04 Gast56364
NotSolved

Ansicht des Beitrags:
Von:
Gast56364		 Datum:
11.07.2017 20:12:04		 Views:
600		 Rating:
     
Antwort:
  Ja
Thema:
Getrenntes Drucken !DRINGEND!

Hallo Sabine!

HIer mal eine Möglichkeit. Was du mit Kommentarfeld meinst, konnte ich nicht erkennen. EInfach mal probieren. Es wird dabei der Standartdrucker genutzt. Zum Testen ggf. mal eine verkürzte Datei mit nur einigen veschiedenen Zahlen nutzen und nicht gleich mit 10000 Zeilen. VG

 

Sub drucken()
Dim anzblatt As Long
Dim maxanzahl As Long
Dim wert As Long
Dim durchlauf As Long
Dim ende As Long
Dim temp As Long

Application.ScreenUpdating = False

ende = ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row

If ActiveSheet.AutoFilterMode = False Then Rows("1:1").AutoFilter
wert = ActiveSheet.Cells(2, 2)
anzblatt = 1
temp = 2
maxanzahl = Evaluate("=Sum(If(B2:B" & ende & "<>" & Chr(34) & Chr(34) & ",1/CountIf(B2:B" & ende & ",B2:B" & ende & ")))")
For durchlauf = 1 To maxanzahl
    Rows("1:1").AutoFilter Field:=2, Criteria1:=wert
    ActiveSheet.PageSetup.CenterFooter = "Seite " & anzblatt & " von " & maxanzahl
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    
    temp = temp + Application.WorksheetFunction.CountIf(ActiveSheet.Range("B2:B" & ende), wert)
    wert = ActiveSheet.Cells(temp, 2)

    anzblatt = anzblatt + 1
Next durchlauf

Application.ScreenUpdating = True

End Sub

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
11.07.2017 11:54:12 Sabine
NotSolved
Blau Getrenntes Drucken !DRINGEND!
 11.07.2017 20:12:04 Gast56364
NotSolved