El siguiente código es correcto para poder crear el botón de imprimir:
Private Sub Printform()
Cursor.Current = Cursors.WaitCursor
With Me.PrintForm1
.PrintAction = Printing.PrintAction.PrintToPreview
.PrinterSettings.DefaultPageSettings.Landscape = True
.Print(Me, PowerPacks.Printing.PrintForm.PrintOption.ClientAreaOnly)
End With
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Call Printform()
End Sub
Selecciona uno de los siguientes: