Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1140to1144
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1140to1144
1140to1144
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

drucken bestimmte bereiche und umbruch

drucken bestimmte bereiche und umbruch
chris
Hallo VBA Experten,
ich habe eine frage.
Gibt es eine möglichkeit einen Druckbereich wie folgt darzustellen.
Durcken A4
drucken im Hochformat
drucken bereich "$B$2:$F$118"
drucken 2 seiten hoch
drucken Wiederhohlungszeile zeile 2
und das was ich auch nicht hinbekomme auch mit aufzeichnen nicht
drucken so das der umbruch für seite 2 ab zeile 59 passiert.
Wie mache ich das ?
Vielen Dank für eure Hilfe.
gruß chris

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: drucken bestimmte bereiche und umbruch
05.03.2010 12:16:20
Rudi
Hallo, 
Sub ttt()
Application.ScreenUpdating = False
ActiveWindow.View = xlPageBreakPreview
With ActiveSheet
With .PageSetup
.PrintTitleRows = "$2:$2"
.PrintArea = "$B$2:$F$118"
.Orientation = xlPortrait
.PaperSize = xlPaperA4
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 2
End With
.ResetAllPageBreaks
.HPageBreaks.Add Range("B60")
Set .HPageBreaks(1).Location = Range("B60")
End With
ActiveWindow.View = xlNormalView
Application.ScreenUpdating = True
End Sub

Gruß
Rudi
AW: drucken bestimmte bereiche und umbruch
05.03.2010 12:21:38
chris
HI Rudi,
das mit den ResetAllPageBreaks
habe ich nicht hinbekommen :(
Danke für Deine Hilfe !
Schönes Wochenende !
Anzeige
AW: Stopp geht doch nichT :(
05.03.2010 12:24:15
chris
Hallo Rudi,
bei mir klappts nicht.
bei mir kommt hier eine Fehler.
Set .HPageBreaks(1).Location = Range("B60")
Fehler.
Laufzeitfehler 1004
Anwendungs oder Objektdefinierter Fehler
Weiß du was das sein kann ?
bei mir schon
05.03.2010 12:29:15
Rudi
Hallo,
lass es doch mal weg und schau, was passiert.
Bei mir saß ohne der HPB nicht richtig.
Gruß
Rudi
hier meine Version,
05.03.2010 12:40:11
Tino
Hallo,
erste Versuche sahen gut aus.
With Tabelle1 'Tabelle anpassen 
    
    With .PageSetup
         'Seite klein genug einrichten damit es auf zwei Seiten passt 
         'hier 80% 
        .Zoom = 80
        .PrintArea = "$B$2:$F$118"
        .PrintTitleRows = "$2:$2"
        .Orientation = xlPortrait
    End With
    
    On Error Resume Next
        Do While .HPageBreaks.Count > 0 And Err.Number = 0
        .HPageBreaks(.HPageBreaks.Count).Delete: Loop
    On Error GoTo 0
    
    .HPageBreaks.Add .Range("B59")

End With
Gruß Tino
Anzeige
AW: hier meine Version,
05.03.2010 13:00:36
chris
Hallo Tino,
klappt wie immer super.
danke Dir und heute noch einen schönen Arbeitstag !

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige