you can try this solution:
Private Sub Frm_stampa_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load ' Hide default button crv_stampa.ShowPrintButton = False ' New print button For Each ctrl As Control In crv_stampa.Controls If TypeOf ctrl Is Windows.Forms.ToolStrip Then Dim btnNew As New ToolStripButton btnNew.Text = "Print" btnNew.ToolTipText = "Print" btnNew.Image = My.Resources.stampa btnNew.DisplayStyle = ToolStripItemDisplayStyle.Image CType(ctrl, ToolStrip).Items.Insert(0, btnNew) AddHandler btnNew.Click, AddressOf tsItem_Click End If Next ' --------------------------------------------- End Sub Private Sub tsItem_Click(sender As System.Object, e As System.EventArgs) ' Put your code here, before print Dim PrintDialog As New PrintDialog() If PrintDialog.ShowDialog = Windows.Forms.DialogResult.OK Then rpt.PrintOptions.PrinterName = PrintDialog.PrinterSettings.PrinterName rpt.PrintToPrinter(PrintDialog.PrinterSettings.Copies, PrintDialog.PrinterSettings.Collate, PrintDialog.PrinterSettings.FromPage, PrintDialog.PrinterSettings.ToPage) End If End Sub