Snasui Excel Forum

Code: Select all

Sub PrintPage1()
'
' PrintPage1 Macro
'

'
    ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
        :=True, IgnorePrintAreas:=False
    
    Cells(3, 6).Value = Value + 1
    
End Sub

Code: Select all

Sub PrintPage1()
'
' PrintPage1 Macro
''
    ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
        :=True, IgnorePrintAreas:=False
        
        Cells(3, 6).Value = 1 
        
End Sub

Code: Select all

Sub PrintPage1()
'
' PrintPage1 Macro
'

'
    ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
        :=True, IgnorePrintAreas:=False
    Range("F3").Value = Range("F3").Value + 1
End Sub