I want to create a new worksheet which will be called Customer_Equipment_List (can be considered duplicate of referenced worksheet) using same code I included here but that will be provide me an active worksheet instead of a Print Preview page.
I’ll appreciate your help. Thanks!
Code for Excel Report:
Sub Excel_Equipment_List()
'
' Excel_Equipment_List Macro
'
Application.ScreenUpdating =
Call hide_zeros_equipment
With ActiveSheet.PageSetup
.Orientation = xlPortrait
.PrintArea = "$A$630:$I$2160"
.PrintTitleRows = "$630:$645"
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 50
.PaperSize = xlPaperLetter
.TopMargin = Application.InchesToPoints(0.25)
.LeftMargin = Application.InchesToPoints(0.25)
.RightMargin = Application.InchesToPoints(0.25)
End With
ActiveSheet.PrintPreview
Application.ScreenUpdating = True
Range("A646").Select
End Sub
~Krista~
I’ll appreciate your help. Thanks!
Code for Excel Report:
Sub Excel_Equipment_List()
'
' Excel_Equipment_List Macro
'
Application.ScreenUpdating =
Call hide_zeros_equipment
With ActiveSheet.PageSetup
.Orientation = xlPortrait
.PrintArea = "$A$630:$I$2160"
.PrintTitleRows = "$630:$645"
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 50
.PaperSize = xlPaperLetter
.TopMargin = Application.InchesToPoints(0.25)
.LeftMargin = Application.InchesToPoints(0.25)
.RightMargin = Application.InchesToPoints(0.25)
End With
ActiveSheet.PrintPreview
Application.ScreenUpdating = True
Range("A646").Select
End Sub
~Krista~