[原创]打印选中的复选框中的内容 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim i As Integer

For Each r As Row In Tables("数据表").rows

r.Table.Position = r.Index

Select Case Vars("规格")

Case "0.5kg/袋"

For i=1 To r("qty")/0.5 Step 1

Dim doc As PrintDoc = e.Form.GernatePrintDoc()

Doc.print()

Case "1kg/袋"

For i=1 To r("qty")/1 Step 1

Dim doc As PrintDoc = e.Form.GernatePrintDoc()

Doc.print()

End Select

已经在数据表中调出复选框选项，如何在该代码的基础上增加为只打印选中的复选框数据

Dim i As Integer
For Each r As Row In Tables("数据表").GetCheckedRows

Dim cnames() As String = {"BarCode1", "BarCode2", "BarCode3"}

Dim ge As String = vars("规格").GetCheckedRows

ge = iif(ge="0.5kg/袋", "500.0g", iif(ge="1kg/袋", "1000.0g", ""))

For Each r As Row In Tables("数据表").rows

Dim cnt As Integer = r("qty") / (val(ge.replace("g", "")) / 1000)

Dim st As Integer = Math.Ceiling(cnt /3)

For i As Integer = 0 To 2

e.Form.controls("label" & i & "1").text = r("fullname")

e.Form.controls("label" & i & "2").text = r("outfactorydate")

e.Form.controls("label" & i & "3").text = r("jobnumber")

e.Form.controls("label" & i & "4").text = ge

For i As Integer = 0 To st - 1

For Each cname As String In cnames

Dim bar As WinForm.BarCode = e.Form.Controls(cname)

Dim str As String = ""

For j As Integer = 1 To 35

str &= Rand.Next(10)

bar.Code = "*" & str

bar.Text = str.substring(0,12) & vbcrlf & str.SubString(12, 12) & vbcrlf & str.SubString(24)

If i = st-1 Then

If i * 3 + 1>=cnt Then

e.Form.controls("label11").text = Nothing

e.Form.controls("label12").text = Nothing

e.Form.controls("label13").text = Nothing

e.Form.controls("label14").text = Nothing

Dim bar As WinForm.BarCode = e.Form.Controls("BarCode2")

bar.Code = ""

bar.Text = ""

End If

If i * 3 + 2>=cnt Then

e.Form.controls("label21").text = Nothing

e.Form.controls("label22").text = Nothing

e.Form.controls("label23").text = Nothing

e.Form.controls("label24").text = Nothing

Dim bar As WinForm.BarCode = e.Form.Controls("BarCode3")

bar.Code = ""

bar.Text = ""

End If

Dim doc As PrintDoc = e.Form.GernatePrintDoc()

doc.print

这个该怎么加呢

还有就是，我在窗口中的一个Label控件，现在是字数超过设置的长度就换行打印覆盖到下面的内容上面了，我想要他超出的那部分就不要打印了，怎么设置呢

For Each r As Row In Tables("数据表").rows

改成

For Each r As Row In Tables("数据表").GetCheckedRows

以下是引用sysckj在2017/9/6 11:30:00的发言：
还有就是，我在窗口中的一个Label控件，现在是字数超过设置的长度就换行打印覆盖到下面的内容上面了，我想要他超出的那部分就不要打印了，怎么设置呢

你可以设置label的自动大小->False；宽高设置成你定义的宽高。

自动大小是False啊，但是打印出来就是自动换行了

以下是引用sysckj在2017/9/6 11:45:00的发言：
自动大小是False啊，但是打印出来就是自动换行了

打印出来的，是你设置的控件的宽度和高度那个大小的，不会超出打印的。

那我再调下高度看看，DateTimePicker日期控件怎么设置默认是计算机时间呢

以下是引用sysckj在2017/9/6 11:51:00的发言：
那我再调下高度看看，DateTimePicker日期控件怎么设置默认是计算机时间呢

e.form.controls("DateTimePicker1").Value = Date.Now

主题：[原创]打印选中的复选框中的内容