rodney_malod
03-27-2007, 04:16 AM
How can i make the code print out 2 sheets everytime, and then the one of 4 sheets that has a number in F4?
Sub Macro1()
'
' Macro1 Macro
' Macro recorded 13/02/2007 by Rodders
'
With ActiveWorkbook
For Each Worksheet In .Worksheets
If "F2" > 0 Then
Worksheet.Activate
Worksheet.Visible = xlSheetVisible
With ActiveSheet.PageSetup
.PaperSize = xlPaperA4
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
.LeftFooter = ""
End With
Next Worksheet
End With
'
ActiveWorkbook.PrintOut Copies:=1, Collate:=True
'
End Sub
Sub Macro1()
'
' Macro1 Macro
' Macro recorded 13/02/2007 by Rodders
'
With ActiveWorkbook
For Each Worksheet In .Worksheets
If "F2" > 0 Then
Worksheet.Activate
Worksheet.Visible = xlSheetVisible
With ActiveSheet.PageSetup
.PaperSize = xlPaperA4
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
.LeftFooter = ""
End With
Next Worksheet
End With
'
ActiveWorkbook.PrintOut Copies:=1, Collate:=True
'
End Sub