Printout

[sna]

Hi Dear,
I got this code from my friend.
Those code is use print from selected any range in a sheet thru inputbox but it is no luck.
Sub PrintIt()
Dim rRange As Range
Set rRange=Application.InputBox("Please select the range",Type:=8)
With Sheets(Application.InputBox("Input Sheet Name"))
.PageSetup.PrintArea=rRange.Address
.PrintOut Copies:=Inputbox("Number of copies:"), Collate:=True
End With
End Sub


Best wishes

[snasui]

Your code should be show with code style, begin with [code] and end with [/code] like show as below.

Code: Select all

Sub PrintIt()
Dim rRange As Range
Set rRange=Application.InputBox("Please select the range",Type:=8)
With Sheets(Application.InputBox("Input Sheet Name"))
.PageSetup.PrintArea=rRange.Address
.PrintOut Copies:=Inputbox("Number of copies:"), Collate:=True
End With
End Sub

I have tested this code and it worked properly not show any problem.

[sna]

Hi Dear
This code seems conflict .how do I edit code to
select sheet first then range for printing?

Best wishes

[snasui]

This statement show input box for fill in with your target sheet name for print.

Code: Select all

With Sheets(Application.InputBox("Input Sheet Name"))
...Other code

Please adjust for your task first and if it has any problem please post here with adjusted code.