Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 16:15:16
Mittels VBA vordefinierte Kommentare in Zellen einfügen?
23.04.2024 14:59:21
Zellformel in VBA
23.04.2024 14:47:39
Formel SVERWEIS
23.04.2024 14:27:08
Excel - Zellen verketten anhand anderer Spalte
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1268to1272
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
1268to1272
1268to1272
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Einrahmung der Ecxelliste beim Ausdruck

Einrahmung der Ecxelliste beim Ausdruck
Anna
Guten Abend,
eine lange Ecxel-Liste ist durch einen dicken Außenrahmen eingefasst.
Nun soll diese Ecxel-Liste ausgedruckt werden und der dicke Außenrahen beim Ausdruck auf jedem Blatt für den Druckbereich erscheinen. Der Seitenumbruch erfolgt dabei automatisch.
Hat jemand von euch eine Idee zur Aufgabenlösung?
LG, Anna

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Einrahmung der Ecxelliste beim Ausdruck
21.06.2012 22:12:34
Josef

Hallo Anna,
das geht z. B. so.
' **********************************************************************
' Modul: DieseArbeitsmappe  Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit

Private Sub Workbook_BeforePrint(Cancel As Boolean)
  Dim objPB As HPageBreak
  Dim oldView As Long
  
  oldView = ActiveWindow.View
  
  ActiveWindow.View = xlPageBreakPreview
  For Each objPB In ActiveSheet.HPageBreaks
    If rngB Is Nothing Then
      Set rngB = objPB.Location.Offset(-1, 0).EntireRow
      Set rngT = objPB.Location.EntireRow
    Else
      Set rngB = Union(rngB, objPB.Location.Offset(-1, 0).EntireRow)
      Set rngT = Union(rngT, objPB.Location.EntireRow)
    End If
  Next
  
  If Not rngB Is Nothing Then
    rngB.Borders(xlEdgeBottom).Weight = xlThick
    rngT.Borders(xlEdgeTop).Weight = xlThick
  End If
  
  ActiveWindow.View = oldView
  
  Application.OnTime Now + TimeSerial(0, 0, 1), "resetBorders"
End Sub


' **********************************************************************
' Modul: Tabelle1  Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  
End Sub


' **********************************************************************
' Modul: Modul1  Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Public rngT As Range
Public rngB As Range

Public Sub resetBorders()
  If Not rngB Is Nothing Then
    rngB.Borders(xlEdgeBottom).LineStyle = xlNone
    rngT.Borders(xlEdgeTop).LineStyle = xlNone
  End If
End Sub



« Gruß Sepp »

Anzeige
AW: Einrahmung der Ecxelliste beim Ausdruck
21.06.2012 22:38:18
Anna
Hi Sepp,
vielen Dank für deine Hilfe! Ich hab das jetzt mal probiert, leider kenn ich mich mit VBA nicht aus...
funktioniert das auch anders?
LG, Anna
AW: Einrahmung der Ecxelliste beim Ausdruck
22.06.2012 18:14:01
Josef

Hallo Anna,
"funktioniert das auch anders?"
Ja, per Hand!

« Gruß Sepp »

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige