以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  [求助]打印  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=151618)

--  作者：crazyfengyu --  发布时间：2020/6/29 15:06:00 --  [求助]打印 Dim dyjmc As WinForm.ComboBox = e.Form.Controls("打印机名称") If dyjmc.Text = "" Then     MessageBox.Show("请选择一个打印机!")     Return Else     Dim grp As WinForm.GroupBox = e.Form.Controls("GroupBox2")     Dim doc As PrintDoc = e.Form.GernatePrintDoc(grp)     doc.PrinterName = dyjmc.Text     doc.PageSetting.PaperKind = 9     doc.PageSetting.Landscape = True \'横向打印     doc.Print() End If 上面的代码打印还是纵向打印的不管 设置true还是false打印结果都一样，需要a4纸横向打印

--  作者：有点蓝 --  发布时间：2020/6/29 15:20:00 --   到电脑系统打印设置里设置为横向

--  作者：crazyfengyu --  发布时间：2020/6/29 15:24:00 --   其他的要打印纵向有影响吗？

--  作者：有点蓝 --  发布时间：2020/6/29 15:42:00 --   有。或者试试到窗口设计里打开：文件-》页面设置，选定打印机，设置为横向试试

--  作者：crazyfengyu --  发布时间：2020/6/29 16:34:00 --   Tables("订单").AutoSizeRows() 表设置了自动大小，长文字还是显示不完全

--  作者：有点蓝 --  发布时间：2020/6/29 16:47:00 --   截图看看

--  作者：crazyfengyu --  发布时间：2020/6/29 16:52:00 --   项目关了重新打开就好了。这是什么原因

--  作者：有点蓝 --  发布时间：2020/6/29 16:59:00 --   开发阶段，如果编辑表事件，会这样，重启项目即可