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