用这段代码打印,打印机没反应,也没提示错误。请教一下这段代码是否行得通?
Dim doc As New PrintDoc '定义一个报表Dim rt As New prt.RenderText '定义一个文本对象rt.Text = "Hello Foxtable" '设置文本对象的内容doc.Body.Children.Add(rt) '将文本对象加入到报表
Dim diag As New System.Windows.Forms.PrintDialog '打印diag.Document=doc.Documentdiag.ShowDialog()