Visual basic print code for excel 2007

**mattless1** · 08-09-2009, 02:14 PM

Hi can someone help i have a workbook, which i use as an order form. i would like to have a print button on the workbook. is there a code i can enter to make this print to the default printer?

Thanks

Mattless1

**shg** · 08-09-2009, 07:12 PM

Right-click the button, choose Assign Macro, New, and you'll see

Sub Button1_Click()

End Sub

Then add this line:

Sub Button1_Click()
    ActiveSheet.PrintOut
End Sub

Then you will need to save as a macro-enabled (.xlsm) workbook, close, and reopen.

In the alternative, you could just add a print button to the quick-launch toolber.

**D_Rennie** · 08-09-2009, 07:14 PM

Hello mattless1.

You can use

sub mattless ()
ActiveWindow.SelectedSheets.PrintOut Copies:=1 
end sub

And that should sent the print to the defult printer.

Or you can chose the defult printer from a dialog box before the print.

Sub mattless()
Application.Dialogs(xlDialogPrinterSetup).Show
ActiveWindow.SelectedSheets.PrintOut Copies:=1
End Sub

I have noticed that when your worksheet is printed it is printed over two pages.
you can specify a print range "edit the red for your range"
Range("A12", Range("A65536").End(xlUp).Offset(0, 9)).PrintOut Copies:=1, Collate:=True
you may also be able to fit it on one page with changing the cell length.

Good luck, and hope this helps.