主题：标签打印时会先空走一段及纸张设置？

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

 

 

1.纸张大小应该设置为多少？

 

2.打印的时候会先空走2张纸，不知道如何解决？

 

3.还有，就是代码设置打印数量无效，怎么设置都是打印1张？

 

Dim doc As New PrintDoc()

doc.PageSetting.Width = 100
doc.PageSetting.Height = 50
doc.AutoRotate = False 

'此处是代码添加打印内容

Doc.PageSetting.ToPageSettings.PrinterSettings.Copies = 5  '这句无效，设置成多少都打一张，而且也会先空走2张再打印

Doc.PrinterName = "TSC TTP-244 Plus"
Doc.Print

添加纸张 后 空走纸的问题好了。
打印的页数也可以了。
但是所有的字都变小了，大概缩成了一半大小。10mm 变成了 5mm

    rt.Height = 10 '高度为10毫米    ,实际打出来只有5mm

 刚才又试了下，发现可能是尺寸设置有冲突，打印机默认纸张已经设置成了 100*50

Dim doc As New PrintDoc()

doc.PageSetting.Width = 100     '这两句没有删除的时候，字变的好小，这里设置的是报表对象
doc.PageSetting.Height = 50      '

Dim ps As new System.Drawing.Printing.PrinterSettings  ‘这里是PrinterSettings类对象，是不是2个打印对象不同，那怎么设置paperkind

ps.Copies = 2  

doc.Print(ps)    

Dim prtdoc As new Printing.PrintDocument()
Dim foundit As Boolean = False
Dim paperkind As Integer
prtdoc.PrinterSettings.PrinterName = e.Form.Controls("ComboBox1").Text
For Each ps As System.Drawing.Printing.PaperSize In prtdoc.PrinterSettings.PaperSizes  '生成打印机的纸张下拉列表
    If ps.PaperName = "标贴10_03" Then
        'msgbox("paperkind = " & ps.RawKind )
        paperkind = ps.RawKind
        foundit = True
    End If
Next

Dim doc As New PrintDoc() '定义一个报表
doc.PageSetting.PaperKind = paperkind

运行后出现错误: ，用msgbox读取到值为 260

无效的PaperKind代码260。

 设置了，是通过ComboBox1 控件选择的，没有问题。

这种标签打印机 和 普通打印机 不同，好像一些设置都无效。

走纸还是不正常，经常走到纸的中间，本来是会走到2个标签的缝隙那个位置

打印张数，还有其他代码可以实现吗？

 我把前提条件先说下，把打印机设置成了默认打印机，要打印的标签大小是：100mm x 50mm，在打印机设置里新建了一个纸张 "标签10_03" ，并且设置成了默认值。

 

这是代码设置了纸张尺寸的效果：

Dim doc As New PrintDoc() '定义一个报表
Doc.PrinterName = e.Form.Controls("ComboBox1").Value '指定打印机
doc.PageSetting.Width = 100 '纸张宽度为100毫米
doc.PageSetting.Height = 50 '纸张高度为50毫米
Doc.PageSetting.LeftMargin = 8 '设置左边距
Doc.PageSetting.RightMargin = 5 '设置右边距
Doc.PageSetting.TopMargin = 2 '设置上边距
Doc.PageSetting.BottomMargin = 2 '设置下边距
doc.AutoRotate = False  '如果纸张的宽度超过高度,要加上这行代码

 

此主题相关图片如下：有尺寸设置.png

 

这是代码没有设置纸张大小的效果：

 Dim doc As New PrintDoc() '定义一个报表
Doc.PrinterName = e.Form.Controls("ComboBox1").Value '指定打印机
Doc.PageSetting.LeftMargin = 8 '设置左边距
Doc.PageSetting.RightMargin = 5 '设置右边距
Doc.PageSetting.TopMargin = 2 '设置上边距
Doc.PageSetting.BottomMargin = 2 '设置下边距
doc.AutoRotate = False  '如果纸张的宽度超过高度,要加上这行代码

 

此主题相关图片如下：无尺寸.png

在上面的基础上，将打印张数的代码加上去后，文字那些又都缩小了。

打印由    Doc.print 变成

 

Dim ps1 As new System.Drawing.Printing.PrinterSettings
ps1.Copies = 1   '设置份数
doc.Print(ps1)     '打印

 

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

13楼发的 本来就是没有 copies 的 效果，是直接 doc.print。看到2次，是我点了2次打印。

 

15楼才是加了 copies 的效果，字都变小了。

生成一个打印文件（里面有2张要打印的内容）？

 

是不是

 

doc.PageSetting.Width = 200 '纸张宽度为100毫米 设成 200
doc.PageSetting.Height = 100 '纸张高度为50毫米 设成 100

 

要不一个文件如何 有 2张的内容？