Private Sub OptionButton1_click()
if OptionButton1.Value then
ActiveSheet.PageSetup.PrintArea = "'" & activesheet.name _
&"'!A3:N53")
' Other settings
End if
End Sub

Private Sub Userform_Initialize()

OptionButton1.Value = True
ActiveSheet.PageSetup.PrintArea = "'" & activesheet.name _
&"'!A3:N53")

End Sub

--
Regards,
Tom Ogilvy


" wrote:

I have a Userform with 3 OptionButtons, allowing the user to decide
what Range of cells on Worksheet A to print. Ranges are like this:
OptionButton1: printarea = A3:N53
OptionButton2: printarea = A60:N112
OptionButton3: printarea = A3:N112 (fit to 2pages)

I've included a PRINT button and a CANCEL button on the Form.

So, three questions:
** How do I build the code to print the desired range when the option
button is selected and the Print button pressed?

** Can I make OptionButton1 the default? how?
** where do I put the other page formatting info (ie margins and such)
-- on Worksheet A or with the optionbutton code?

Thanks very much for your help...
ray