……doc.PageSetting.Width = 62 '纸张宽度为100毫米
doc.PageSetting.Height = 86
'Doc.Columns(0).Spacing = 40 '栏间距2毫米
Doc.PageSetting.LeftMargin = 1
Doc.PageSetting.RightMargin = 1
Doc.PageSetting.TopMargin = 1.5
Doc.PageSetting.BottomMargin = 1.5
'doc.PageSetting.Landscape = True
For Each r As Row In Tables("进货单明细").Rows
For i As Integer = 1 To 1 r("SL")
Dim ra As New prt.RenderArea
ra.Width = 60 '宽度等于分栏宽度
ra.Height = 40 '高度24毫米
ra.Style.Spacing.Bottom = 3
ra.Style.Borders.All = New prt.Linedef(0.3, Color.Red) '设置边框
……
加好友 
发短信
Post By：2024/2/8 9:45:00 [显示全部帖子]
