Hi,
For some reason my code is not working, I am trying to print out sheets based on what the main page selections are. ie. On the main sheet there are checkboxes, beside each checkbox is the name of the sheet in a cell. Then there is a checkbox, and then in the cell next to that, there is a spot to enter how many copies you need. For some reason, its only printing out blank white pages (my printer is fine). I think its picking up the range right. Also its printing letter sheets when i've asked for llegal...any ideas?
Here is an idea for one checkbox...
Dim area As String
Dim startrow1 As Integer
Dim startcol1 As Integer
Dim endrow1 As Integer
Dim endcol1 As Integer
Dim startrow2 As Integer
Dim startcol2 As Integer
Dim endrow2 As Integer
Dim endcol2 As Integer
Dim startrow3 As Integer
Dim startcol3 As Integer
Dim endrow3 As Integer
Dim endcol3 As Integer
'Do all except Vern
fstyr = Range("FirstAll")
lstyr = Range("LastAll")
If CheckBox12.Value = True Then
num = Cells(18, 9).Value
Sheets(Cells(18, 6).Value).Select
' for q 1 and q 2
startrow1 = 1
startcol1 = 20
endrow1 = 56 + 2 * (lstyr - fstyr)
endcol1 = 46
With Sheets(Cells(18, 6).Value).PageSetup
.Orientation = xlLandscape
.PaperSize = xlPaperLegal
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
Range(Cells(startrow1, startcol1), Cells(endrow1, endcol1)).PrintOut Copies:= num, Collate:=True
' for q3 and q4
startcol2 = 20
startrow2 = (endrow1 + 1)
endrow2 = startrow2 + 42 + 2 * (lstyr - fstyr)
endcol2 = 46
With ActiveSheet.PageSetup
.Orientation = xlLandscape
.PaperSize = xlPaperLegal
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
Range(Cells(startrow2, startcol2), Cells(endrow2, endcol2)).PrintOut Copies:= num, Collate:=True
' for rest
startrow3 = 21
startcol3 = 48
endrow3 = 124
endcol3 = 59
With ActiveSheet.PageSetup
.Orientation = xlLandscape
.PaperSize = xlPaperLegal
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
Range(Cells(startrow3, startcol3), Cells(endrow3, endcol3)).PrintOut Copies:=Cells(18, 9).Value, Collate:=True
'Reset print setup
With ActiveSheet.PageSetup
.Orientation = xlLandscape
.PaperSize = xlPaperLetter
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
End If
THANK YOU!
Bookmarks