Mountaineer00
New Member
- Joined
- Feb 10, 2011
- Messages
- 12
Hi, I'm needing to print multiple ranges in one sheet and have found code to help, one this board, but am having trouble figuring out how to set the formating.
Here's the code that I found: (apologies for not referencing originator)<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com
ffice
ffice" /><o
></o
>
Sub rPrint()
'Works from the sheet module that it is to work from.
Worksheets("Sheet1").Activate
Set myRange = Application.InputBox( _
Prompt:="Select a Range to print!" & Chr(13) & Chr(13) & "Use your mouse!" & Chr(13) _
& "For more than one Range add a ""comma"" between your selected Ranges!", Type:=8)
myRange.Select
MsgBox "Ready to print: " & Selection.Address
ActiveSheet.PageSetup.PrintArea = Selection.Address
ActiveSheet.PageSetup.FitToPagesWide = 1
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("Sheet1").Range("A1").Select
End Sub
I need to be able to select the formatting. Print one page across and x number down. This will allow for each section I select to print on a separate page.
Any assistance will be greatly greatly appreciated!!<o
></o
>
Here's the code that I found: (apologies for not referencing originator)<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com




Sub rPrint()
'Works from the sheet module that it is to work from.
Worksheets("Sheet1").Activate
Set myRange = Application.InputBox( _
Prompt:="Select a Range to print!" & Chr(13) & Chr(13) & "Use your mouse!" & Chr(13) _
& "For more than one Range add a ""comma"" between your selected Ranges!", Type:=8)
myRange.Select
MsgBox "Ready to print: " & Selection.Address
ActiveSheet.PageSetup.PrintArea = Selection.Address
ActiveSheet.PageSetup.FitToPagesWide = 1
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("Sheet1").Range("A1").Select
End Sub
I need to be able to select the formatting. Print one page across and x number down. This will allow for each section I select to print on a separate page.
Any assistance will be greatly greatly appreciated!!<o

