printing cell selection script

951lwebb · Joined: Nov 20, 2007 Posts: 4

please can somebody help me with a script that will print a certain cell selection that i can add to a button.

thank you

PeekabooCanada · Joined: Jun 14, 2006 Posts: 8

Public Sub MySetPrintArea()
'
'
' to set the print area from cell A1 to cell D25
' adjust accordingly
'
'

With ActiveSheet
.PageSetup.PrintArea = "A1:D25"
End With

End Sub

951lwebb · Joined: Nov 20, 2007 Posts: 4

this has not worked, it is not sending anything to the printer queue?

PeekabooCanada · Joined: Jun 14, 2006 Posts: 8

'try this

Sub MySetPrintArea()
'
'
' to set the print area from cell A1 to cell D25
' adjust accordingly
'
'

With ActiveSheet
.PageSetup.PrintArea = "A1:D25"
End With

' to print assuming the default printer is the one you want to print from
' copies and collate may change depending on your printer
' they can be saftly removed is you don't need them
'
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

End Sub