vb - 我正在尝试打印其他表单,但这会发生:

时间:2013-05-20 08:28:58

标签: vb.net

(这是我的第一篇文章,如果我做错了,请纠正我。)

以下是我的一些代码:

imp.id.Text = globalvars.mdataset.Tables("table1").Rows(0).Item("id")
    imp.date.Text = globalvars.mdataset.Tables("table1").Rows(0).Item("date")
    imp.hour.Text = globalvars.mdataset.Tables("table1").Rows(0).Item("hour").ToString
    imp.PrintForm1.PrinterSettings.DefaultPageSettings.Margins = New Printing.Margins(10, 10, 10, 10)
    imp.Show()
    imp.Focus()
    imp.PrintForm1.PrintAction = Printing.PrintAction.PrintToPreview
    imp.PrintForm1.Print()

会发生什么事情,当它给我预览时页面是空的......但奇怪的是,当我在打印动作之前放置一个msgbox时,预览会正确显示我想要打印的内容.... 任何提示?

编辑: imp 是printform

的表单

1 个答案:

答案 0 :(得分:0)

尝试添加此..

....
Application.DoEvents
imp.PrintForm1.Print()