Print button that prints the listed parameters

[DeanML]

I am fairly efficient with the internal commands of excel, but VBA's are very new to me. It took me 4 hours to program a saveas button, but with a lot of internet searching I was able to determine where my issues were. Now I have been trying another button on the same page for a "Print" function. Its a dynamic form that will not be modified other than filled in data. So I want to program a form control button to print the following:
Range
Portrait
Fit to page
Current Printer

I haver been all over the board with this and maybe because the places I look the help I for older versions of excel.

Any help would be appreciated.
JV

 

[AlphaFrog]

Record a macro where you set the printing parameters and click print.

If you need help editing the recorded macro, post the macro here and ask for help.

 

[DeanML]

Sub Button_Click_2()
ActiveSheet.PrintOut
Range("A1:J61").Select
ActiveSheet.PageSetup.printArea = "A1:J61"
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
:=True
End Sub

I can print, but it is double printing. Almost like the button gets pressed twice...

Joe

 

[AlphaFrog]

[COLOR=#333333]Sub Button_Click_2()[/COLOR]
[COLOR=#333333]ActiveSheet.PageSetup.printArea = "A1:J61"[/COLOR]
[COLOR=#333333]ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate[/COLOR][COLOR=#333333]:=True[/COLOR]
[COLOR=#333333]End Sub[/COLOR]