Range("A3:C9").PrintOut Copies:=1, Collate:=True

Dave

you can sue something like this, just change some of the settings to get what
you want:

Private Sub CommandButton1_Click()
     Dim ws As Worksheet
     Dim rng As Range
     Dim lastrow As Long
     Set ws = Worksheets("Sheet1")
     lastrow = ws.Cells(Rows.Count, "G").End(xlUp).Row
     Application.ScreenUpdating = False
     Set rng = ws.Range("A1:G" & lastrow)

     With ws
           With .PageSetup
                 .Orientation = xlPortrait
                 .FooterMargin = Application.InchesToPoints(0.25)
                 .RightMargin = Application.InchesToPoints(0#)
                 .LeftMargin = Application.InchesToPoints(0#)
                 .TopMargin = Application.InchesToPoints(0.9)
                 .BottomMargin = Application.InchesToPoints(0.45)
                 .PrintArea = rng.Address
                 .HeaderMargin = Application.InchesToPoints(0.25)
                 .CenterHeader = "&B&14Sheet1 Title"
                 .FitToPagesTall = 1
                 .FitToPagesWide = 1
                 .CenterHorizontally = True
           End With
           .PrintPreview
     End With
     Application.ScreenUpdating = True
End Sub