Bom dia!!!
Somente com essas informações..então segue.
With ActiveSheet.PageSetup
.LeftHeader = Format(Now(), "dd/mm/yy")
.LeftFooter = "%P"
End With
Private Sub Comprintpatrol_Click()
Range("A1").AutoFilter Field:=1, Criteria1:=Format(Date + 1, Range("A2").NumberFormatLocal)
ActiveSheet.PrintOut
' or
Range("A1").CurrentRegion.PrintOut
Range("A1").AutoFilter
End Sub
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 03/03/2012 5:57 am