Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Me.tblGoodsInTableAdapter.Fill(Me.dbPOsDataSet.tblGoodsIn) Me.ReportViewer1.RefreshReport() End Sub Private Sub ThreadTask() Thread.Sleep(100) SendKeys.SendWait("{TAB}") Thread.Sleep(10) SendKeys.SendWait("{ENTER}") End Sub Private Sub ReportViewer1_RenderingComplete(ByVal sender As Object, ByVal e As Microsoft.Reporting.WinForms.RenderingCompleteEventArgs) Handles ReportViewer1.RenderingComplete ReportViewer1.PrintDialog() Dim thrd As Thread thrd = New Thread(AddressOf ThreadTask) thrd.IsBackground = True thrd.Start() End Sub
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)