主题：打印问题

老师好：

打印预览没有问题。

可是打印出来只打印了一部分。

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()

 

横、坚向都有试过了，都不行。

已经弄了两天，还不行。

 宽，高，调小一点啊，不要超出范围。

预览效果：
此主题相关图片如下：qq图片20160629163251.png

 

 打印效果：

此主题相关图片如下：img_20160629_163016.jpg

 如果不预览，直接doc.print行不行？

 

 或者试试这个例子行不行？

 

下载信息  [文件大小：296.0 KB  下载次数：9]

点击浏览该文件:嵌入专业报表.table

老师,

 把你的那台打印机设置成默认打印机，然后直接print。

 

 看你的打印效果，应该是因为你的纸张是纵向（窄），而要打印的内容，是横向，导致超出纸张的内容无法打印。

学习了。

老师好：设置下面代码后，直接打印正常，

但是，有一个标签的打印，当选择多打印几份后出现中间有两张标签是空白的。

 

窗口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

此主题相关图片如下：qq图片20160630095857.jpg