Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
204to208
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
204to208
204to208
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Laufzeitfehler 1004

Laufzeitfehler 1004
17.01.2003 12:45:47
Volker
Hallo Forum,

warum bricht mein Makro an folgender Stelle im Quellcode (sh. Markierung) mit folgender Meldung ab?

Laufzeitfehler 1004:

Die Print Title-Rows Eigenschaft des Page Setup-Objektes kann nicht festgelegt werden.

----------------------------------


Sub SeiteEinrichten()
Application.ScreenUpdating = True
Application.ScreenUpdating = False
If SeiteEingerichtet = True Then
MsgBox ("Seite ist bereits eingerichtet !")
Exit Sub
Else
End If
If PivotTabelleErzeugt = False Then
MsgBox ("Bitte zuerst die Plausibilität überprüfen !")
Exit Sub
Else
End If
SeiteEingerichtet = False

Workbooks(MaterialListe).Activate
Sheets("(vollständig)").Select

Range("A1").Select
Selection.Sort Key1:=ActiveCell.Offset(0, 5).Range("A1") _
, Order1:=xlAscending, Key2:=ActiveCell.Offset _
(0, 1).Range("A1"), Order2:=xlAscending, Key3:= _
ActiveCell, Order3:=xlAscending, Header:=xlGuess _
, OrderCustom:=1, MatchCase:=False, Orientation _
:=xlTopToBottom
Selection.Subtotal GroupBy:=2, Function:=xlCount, _
TotalList:=Array(6), Replace:=True, PageBreaks _
:=False, SummaryBelowData:=True

With ActiveSheet.PageSetup
.PrintTitleRows = "$1:$1" !!!!!!!!!!!!!!!!!!!!!Fehlerstelle !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
.PrintTitleColumns = ""
End With
ActiveSheet.PageSetup.PrintArea = ""
With ActiveSheet.PageSetup
.LeftHeader = "&F"
.CenterHeader = "Materialliste, sortiert nach DATUS-Art.-Nr."
.RightHeader = "Seite &P von &N"
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = "gedruckt am &D um &T"
.LeftMargin = Application.InchesToPoints(0.7)
.RightMargin = Application.InchesToPoints(0.7)
.TopMargin = Application.InchesToPoints(0.7)
.BottomMargin = Application.InchesToPoints(0.7)
.HeaderMargin = Application.InchesToPoints(0.5)
.FooterMargin = Application.InchesToPoints(0.5)
.PrintHeadings = False
.PrintGridlines = True
.PrintNotes = False
.CenterHorizontally = False
.CenterVertically = False
.Orientation = xlLandscape
.Draft = False
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = True
.Zoom = 100
End With


1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Laufzeitfehler 1004
17.01.2003 13:21:13
Michael Scheffler
Hallo,

das kann bei einem leeren Blatt oder nichtvorhandenem Drucker passieren.

Gruß

Micha

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige