- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 打印问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=86953)
-- 发布时间：2016/6/29 16:27:00
-- 打印问题
老师好：
打印预览没有问题。
可是打印出来只打印了一部分。
e.Form.Page.Width = 240 \'纸张宽度为100毫米
e.Form.Page.Height = 140 \'纸张高度为120毫米
e.Form.Page.LeftMargin = 10 \'设置左边距
e.Form.Page.RightMargin = 5 \'设置右边距
e.Form.Page.TopMargin = 5 \'设置上边距
e.Form.Page.BottomMargin = 5 \'设置下边距
e.Form.Page.Landscape = True \'横向打印
Dim doc As PrintDoc = e.Form.GernatePrintDoc()
doc.Preview()
横、坚向都有试过了，都不行。
-- 发布时间：2016/6/29 16:28:00
--
已经弄了两天，还不行。
-- 发布时间：2016/6/29 16:29:00
--
宽，高，调小一点啊，不要超出范围。
-- 发布时间：2016/6/29 16:41:00
--
预览效果：
此主题相关图片如下：qq图片20160629163251.png
打印效果：
此主题相关图片如下：img_20160629_163016.jpg
-- 发布时间：2016/6/29 16:50:00
--
如果不预览，直接doc.print行不行？
或者试试这个例子行不行？
| 下载信息 [文件大小：296.0 KB 下载次数：9] | |
 点击浏览该文件:嵌入专业报表.table |
-- 发布时间：2016/6/29 22:56:00
--
老师,
-- 发布时间：2016/6/30 1:11:00
--
把你的那台打印机设置成默认打印机，然后直接print。
看你的打印效果，应该是因为你的纸张是纵向（窄），而要打印的内容，是横向，导致超出纸张的内容无法打印。
-- 发布时间：2016/6/30 9:49:00
--
学习了。
-- 发布时间：2016/6/30 10:00:00
--
老师好：设置下面代码后，直接打印正常，
但是，有一个标签的打印，当选择多打印几份后出现中间有两张标签是空白的。
窗口AfterLoad代码：
Dim s As String = ""
For Each p As String In InstalledPrinters
s = s & p & "|"
Next
s = s.trimEnd("|","")
Dim cmb As WinForm.ComboBox
cmb = Forms("厚边印刷尾数条码标签").Controls("ComboBox1")
cmb.ComboList = s
按钮代码：
Dim txt1 As String = e.Form.Controls("TextBox1").Text \'定义变量,用于手动输入打印数量
Dim cmb1 As String = e.Form.Controls("ComboBox1").Text \'定义变量,用于手动选择打印机
For j As Integer = 0 To val(txt1) - 1 \'指定打印数量
Dim doc As PrintDoc = e.Form.GernatePrintDoc()
Doc.PrinterName = cmb1 \'指定打印机
doc.Print()
Next
-- 发布时间：2016/6/30 10:04:00
--
此主题相关图片如下：qq图片20160630095857.jpg