主题：[求助] 打印标签

任何打印机都是通用的。

请用专业报表打印标签。

参考

http://www.foxtable.com/webhelp/scr/1186.htm

http://www.foxtable.com/webhelp/scr/1219.htm

http://www.foxtable.com/webhelp/scr/1195.htm

打印预览

Dim doc  As New PrintDoc
doc.PageSetting.Width = 49  '
doc.PageSetting.Height = 29
Doc.PageSetting.LeftMargin = 0
Doc.PageSetting.TopMargin = 0
Dim t As Table = e.form.controls("table1").Table
For i As Integer = t.TopPosition To t.BottomPosition
    Dim r As Row = t.Rows(i)
    Dim rt As New prt.RenderTable() '定义一个表格对象
    rt.Style.GridLines.All = New prt.LineDef '将网格线类型设为默认类型
    rt.Width = 50 '表格宽度为50mm
    rt.Style.Spacing.All = 2 '和其他对象之间的间隔为2mm
    rt.SplitVertBehavior = prt.SplitBehaviorEnum.Never '避免垂直换页的时候,表格被分割成两部分.
    rt.Cols(0).Width = 20
    rt.cells(0,0).Text = "客户"
    rt.Cells(0,1).Text = r("客户")
    rt.Cells(1,0).Text = "订单号"
    rt.Cells(1,1).Text = r("订单号码")
    rt.Cells(2,0).Text= "数量"
    rt.cells(2,1).Text = r("发货数量")
    doc.Body.Children.Add(rt) '将表格对象加入到报表中   
Next
doc.Preview()

参考

http://www.foxtable.com/webhelp/scr/1588.htm

1、http://www.foxtable.com/webhelp/scr/0036.htm

2、做个例子发上来测试。

Dim doc  As New PrintDoc
doc.PageSetting.Width = 69  '
doc.PageSetting.Height = 42
Doc.PageSetting.LeftMargin = 5
Doc.PageSetting.TopMargin = 2
Doc.PageSetting.RightMargin = 0
Dim t As Table = e.form.controls("table1").Table
For i As Integer = t.TopPosition To t.BottomPosition
    Dim r As Row = t.Rows(i)
    Dim rt As New prt.RenderTable() '定义一个表格对象
    Dim rt1 As New prt.RenderText
    rt1.Style.FontBold = True
    rt.Style.FontSize = 12
    rt.Style.GridLines.All = New prt.LineDef '将网格线类型设为默认类型
    'rt.Width = 50 '表格宽度为50mm
    rt.Style.Spacing.All = 2 '和其他对象之间的间隔为2mm
    rt.SplitVertBehavior = prt.SplitBehaviorEnum.Never '避免垂直换页的时候,表格被分割成两部分.
    rt.Cols(0).Width = 50
    rt.cells(0,0).Text = "Customer"
    rt.Cells(0,1).Text = r("客户")
    rt.Cells(1,0).Text = "Order No"
    rt.Cells(1,1).Text = r("订单号码")
    rt.Cells(2,0).Text= "Customer Part No"
    rt.Cells(2,0).Style.WordWrap = False
   
    'rt.Cells(2,0).Style.Font = new font("宋体", 5)
    rt.cells(2,1).Text = r("客户产品代码")
    rt.Cells(3,0).Text= "Part No."
    rt.cells(3,1).Text = r("代码")
    rt.Cells(4,0).Text= "Qty"
    rt.cells(4,1).Text = r("发货数量")
   
    doc.Body.Children.Add(rt) '将表格对象加入到报表中
Next
doc.Preview()

'Doc.PrinterName = "ZDesigner ZM400 300 dpi (ZPL)"
'doc.Print()

你需要这个？

http://www.foxtable.com/webhelp/scr/1173.htm

加上代码如

rt.Rows(0).Height = 10
rt.Rows(1).Height = 20

rt.Cols(0).Width = 30

rt.Cols(1).Width = 50