主题：打印问题

老师好：

打印预览没有问题。

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

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

老师,

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

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

 

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

红袍老师：

按你给的代码，打出来仍会有一张空白一张有内容的。

是不是我这设置有问题呢。

宽100，

高72，

左右上下各边距5

老师好：

这是在窗口中打印，能想到的方法都试过了，打印出来还是一样，就是第一页没有内容，第2页才打印出来，以此循环，所以都会有一张空白的一张标签。

我做了个简单例子，麻烦您看一下。

标签纸张尺寸是：100*70

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

点击浏览该文件:管理项目1.rar

老师好：

我现在把标签剥离了系统保存到桌面后打印就可以了。

多谢您这些天的帮助呵呵！