进行打印标签， 用的是窗体打印。
我期望能按一个打印按钮， 能把当前窗体做连续打印：
以下内容为程序代码:
1 '页面设置
2 With e.Form.page
3 .Landscape = False '纵向打印
4 .width = 80
5 .height = 50
6 .LeftMargin = 1
7 .TopMargin = 1
8 .RightMargin = 1
9 .BottomMargin = 1
10 End With
11
12 '打印
13 Dim doc As PrintDoc = e.Form.GernatePrintDoc()
14 Doc.AutoRotate = False
15 'Doc.SavePDF("e:\3.pdf")
16
17 With Tables("printer_setting")
18 Dim r As Integer
19 r = .FindRow("[flag]='标签打印机'" )
20 If r ＞= 0 Then
21 Doc.PrinterName = .Current("printer_address")
22 Else
23 MessageBox.Show("打印机未设定,路径:我的工作台-＞基础资料-＞打印机设定")
24 Return
25 End If
26 End With
27
28 Doc.PrinterName = "\\192.168.1.3\Argox CP-2140M PPLB"
29 Doc.print()
30 Forms("标签").Close()
加好友 
发短信
Post By：2018/5/21 15:26:00 [只看该作者]
