主题：[求助] 窗体循环打印

以下内容为程序代码:

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