S
Subs
Hi can someone help me here
I'm setting HPageBreaks in predined places
however when I look at the PrintPreview
I can see other breaklines which are broken lines
How do I get rid of these.
Here's the code I'm using
..ResetAllPageBreaks
.PageSetup.PrintArea = ""
.PageSetup.PrintTitleRows = ""
.PageSetup.PrintTitleColumns = ""
.PageSetup.PrintArea = ActiveSheet.Range(Cells(6, startCol),
Cells(lastRow, stopCol)).Address
.PageSetup.PrintTitleRows = "$1:$6"
.PageSetup.PrintTitleColumns = colTiCh
.HPageBreaks.Add Before:=.Range("A44")
.HPageBreaks.Add Before:=.Range("A62")
VbreakCount = .VPageBreaks.Count
HbreakCount = .HPageBreaks.Count
For i = 1 To HbreakCount
For j = 1 To VbreakCount
Set numHBreaks = .HPageBreaks(i).Location
Set numVBreaks = .VPageBreaks(j).Location
Next j
Next i
thanks for any help
Subs
I'm setting HPageBreaks in predined places
however when I look at the PrintPreview
I can see other breaklines which are broken lines
How do I get rid of these.
Here's the code I'm using
..ResetAllPageBreaks
.PageSetup.PrintArea = ""
.PageSetup.PrintTitleRows = ""
.PageSetup.PrintTitleColumns = ""
.PageSetup.PrintArea = ActiveSheet.Range(Cells(6, startCol),
Cells(lastRow, stopCol)).Address
.PageSetup.PrintTitleRows = "$1:$6"
.PageSetup.PrintTitleColumns = colTiCh
.HPageBreaks.Add Before:=.Range("A44")
.HPageBreaks.Add Before:=.Range("A62")
VbreakCount = .VPageBreaks.Count
HbreakCount = .HPageBreaks.Count
For i = 1 To HbreakCount
For j = 1 To VbreakCount
Set numHBreaks = .HPageBreaks(i).Location
Set numVBreaks = .VPageBreaks(j).Location
Next j
Next i
thanks for any help
Subs