Good Afternoon everyone.

I need help with the following code:

Code/
Option Explicit
Sub selectAll()
Dim ws As Sheet5
Dim printMe As Range
'***** turn off
Application.ScreenUpdating = False
Set ws = Application.Sheets("InitialAssessments")
'***** THIS IS YOUR DYNAMIC RANGE HERE
ws.Activate
Set printMe = ws.UsedRange
'***** these are just options
ws.PageSetup.PrintArea = printMe.Address(False, False)
With ws.PageSetup
'***** manually set margin??????
.LeftMargin = Application.InchesToPoints(0)
.RightMargin = Application.InchesToPoints(0)
.TopMargin = Application.InchesToPoints(0.25)
.BottomMargin = Application.InchesToPoints(0.5)
.HeaderMargin = Application.InchesToPoints(0.25)
.FooterMargin = Application.InchesToPoints(0.25)
'*****
'***** other options here.
.CenterHorizontally = True
.CenterVertically = False
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
'***** printing here
ws.PrintOut Copies:=1, Collate:=True <----PROBLEM HERE.
'***** turn back on
Application.ScreenUpdating = True
End Sub

/Code

I get a "method Print Out of Worksheet object failed". I've tried to
figure it out, but to no avail. Please help.
Suggestions?

I would change
ws.PageSetup.PrintArea = printMe.Address(False, False)

to

ws.PageSetup.PrintArea = printMe.Address(False, False, xlA1,True)

make sure the code is in a general module and not in a worksheet module.

--
Regards,
Tom Ogilvy

"me" <spam@spam wrote in message
. com...
Good Afternoon everyone.

I need help with the following code:

Code/
Option Explicit
Sub selectAll()
Dim ws As Sheet5
Dim printMe As Range
'***** turn off
Application.ScreenUpdating = False
Set ws = Application.Sheets("InitialAssessments")
'***** THIS IS YOUR DYNAMIC RANGE HERE
ws.Activate
Set printMe = ws.UsedRange
'***** these are just options
ws.PageSetup.PrintArea = printMe.Address(False, False)
With ws.PageSetup
'***** manually set margin??????
.LeftMargin = Application.InchesToPoints(0)
.RightMargin = Application.InchesToPoints(0)
.TopMargin = Application.InchesToPoints(0.25)
.BottomMargin = Application.InchesToPoints(0.5)
.HeaderMargin = Application.InchesToPoints(0.25)
.FooterMargin = Application.InchesToPoints(0.25)
'*****
'***** other options here.
.CenterHorizontally = True
.CenterVertically = False
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
'***** printing here
ws.PrintOut Copies:=1, Collate:=True <----PROBLEM HERE.
'***** turn back on
Application.ScreenUpdating = True
End Sub

/Code

I get a "method Print Out of Worksheet object failed". I've tried to
figure it out, but to no avail. Please help.
Suggestions?

Thanks for the information Tom. I did as you
instructed. I changed that line of code and the Sub
procedure is in a module and not a worksheet. I am still
getting the problem on the same line as in the original
post:

code/
'***** printing here
ws.PrintOut Copies:=1, Collate:=True <---PROBLEM HERE.

Please advise if you can. What am I doing wrong?

Thank you

chris
-----Original Message-----
I would change
ws.PageSetup.PrintArea = printMe.Address(False, False)

to

ws.PageSetup.PrintArea = printMe.Address(False, False,
xlA1,True)

make sure the code is in a general module and not in a
worksheet module.

--
Regards,
Tom Ogilvy

"me" <spam@spam wrote in message
.com...
Good Afternoon everyone.

I need help with the following code:

Code/
Option Explicit
Sub selectAll()
Dim ws As Sheet5
Dim printMe As Range
'***** turn off
Application.ScreenUpdating = False
Set ws = Application.Sheets("InitialAssessments")
'***** THIS IS YOUR DYNAMIC RANGE HERE
ws.Activate
Set printMe = ws.UsedRange
'***** these are just options
ws.PageSetup.PrintArea = printMe.Address(False,
False)
With ws.PageSetup
'***** manually set margin??????
.LeftMargin = Application.InchesToPoints(0)
.RightMargin = Application.InchesToPoints(0)
.TopMargin = Application.InchesToPoints(0.25)
.BottomMargin = Application.InchesToPoints
(0.5)
.HeaderMargin = Application.InchesToPoints
(0.25)
.FooterMargin = Application.InchesToPoints
(0.25)
'*****
'***** other options here.
.CenterHorizontally = True
.CenterVertically = False
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
'***** printing here
ws.PrintOut Copies:=1, Collate:=True <----
PROBLEM HERE.
'***** turn back on
Application.ScreenUpdating = True
End Sub

/Code

I get a "method Print Out of Worksheet object
failed". I've tried to
figure it out, but to no avail. Please help.
Suggestions?



.

Your options are not doing anything for you.

try

ws.PrintOut

If that doesn't work, start removing/commenting out parts of your code until
it works.

--
Regards,
Tom Ogilvy

"Chris Villanueva" wrote in message
...
Thanks for the information Tom. I did as you
instructed. I changed that line of code and the Sub
procedure is in a module and not a worksheet. I am still
getting the problem on the same line as in the original
post:

code/
'***** printing here
ws.PrintOut Copies:=1, Collate:=True <---PROBLEM HERE.

Please advise if you can. What am I doing wrong?

Thank you

chris
-----Original Message-----
I would change
ws.PageSetup.PrintArea = printMe.Address(False, False)

to

ws.PageSetup.PrintArea = printMe.Address(False, False,
xlA1,True)

make sure the code is in a general module and not in a
worksheet module.

--
Regards,
Tom Ogilvy

"me" <spam@spam wrote in message
.com...
Good Afternoon everyone.

I need help with the following code:

Code/
Option Explicit
Sub selectAll()
Dim ws As Sheet5
Dim printMe As Range
'***** turn off
Application.ScreenUpdating = False
Set ws = Application.Sheets("InitialAssessments")
'***** THIS IS YOUR DYNAMIC RANGE HERE
ws.Activate
Set printMe = ws.UsedRange
'***** these are just options
ws.PageSetup.PrintArea = printMe.Address(False,
False)
With ws.PageSetup
'***** manually set margin??????
.LeftMargin = Application.InchesToPoints(0)
.RightMargin = Application.InchesToPoints(0)
.TopMargin = Application.InchesToPoints(0.25)
.BottomMargin = Application.InchesToPoints
(0.5)
.HeaderMargin = Application.InchesToPoints
(0.25)
.FooterMargin = Application.InchesToPoints
(0.25)
'*****
'***** other options here.
.CenterHorizontally = True
.CenterVertically = False
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
'***** printing here
ws.PrintOut Copies:=1, Collate:=True <----
PROBLEM HERE.
'***** turn back on
Application.ScreenUpdating = True
End Sub

/Code

I get a "method Print Out of Worksheet object
failed". I've tried to
figure it out, but to no avail. Please help.
Suggestions?



.