zoom38
12-04-2007, 02:56 PM
Hello all,
Is there a way to print out the worksheet without the background cell fill colors and patterns? My worksheet has colors in the cells and looks nice on the screen, however when I print it out it doesn't look so nice because of the background fill.
I've done a search on the net and in vba help but was unsuccessful. Here is the print routine Im using.
Sub PrintSetup()
Dim LastRow As Long
Application.ScreenUpdating = False
Sheets("AddedPaymentCalculator").Activate
LastRow = Cells(9, 7).Value + 18
With ActiveSheet.PageSetup
.Orientation = xlLandscape
.LeftMargin = Application.InchesToPoints(0)
.RightMargin = Application.InchesToPoints(0)
.PaperSize = xlPaperLetter
.PrintArea = "$A$1:$M" & LastRow
.Zoom = 100
' .Zoom = False
'.FitToPagesWide = 1
End With
ActiveSheet.PrintOut
Application.ScreenUpdating = True
End Sub
Thanks
Gary
Is there a way to print out the worksheet without the background cell fill colors and patterns? My worksheet has colors in the cells and looks nice on the screen, however when I print it out it doesn't look so nice because of the background fill.
I've done a search on the net and in vba help but was unsuccessful. Here is the print routine Im using.
Sub PrintSetup()
Dim LastRow As Long
Application.ScreenUpdating = False
Sheets("AddedPaymentCalculator").Activate
LastRow = Cells(9, 7).Value + 18
With ActiveSheet.PageSetup
.Orientation = xlLandscape
.LeftMargin = Application.InchesToPoints(0)
.RightMargin = Application.InchesToPoints(0)
.PaperSize = xlPaperLetter
.PrintArea = "$A$1:$M" & LastRow
.Zoom = 100
' .Zoom = False
'.FitToPagesWide = 1
End With
ActiveSheet.PrintOut
Application.ScreenUpdating = True
End Sub
Thanks
Gary