- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 老师帮我分析一下,不能连续打印的原因,打印单张可以 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=161328)
-- 发布时间：2021/3/13 12:00:00
-- 老师帮我分析一下,不能连续打印的原因,打印单张可以
Dim doc As New PrintDoc \'定义一个报表
doc.PageSetting.Width =250
doc.PageSetting.Height=94
doc.PageSetting.TopMargin=10
doc.PageSetting.LeftMargin=10
doc.PageSetting.RightMargin=10
doc.PageSetting.BottomMargin=0
doc.AutoRotate = False
Dim rt As New prt.RenderTable() \'定义一个表格对象
Dim rx As New prt.RenderText \'定义一个文本对象
Dim str As String
Dim dtp1 As WinForm.DateTimePicker = e.Form.Controls("DateTimePicker1")
Dim dtp2 As WinForm.DateTimePicker = e.Form.Controls("DateTimePicker2")
Dim cmd As new sqlcommand
cmd.C
For Each dr As Row In Tables("导入_table1").GetCheckedRows
cmd.CommandText="s elect 订单号,微信昵称,收货人,联系电话,商品名称,规格,数量,商品金额,订单总金额,已退金额,收货地址,导入日期,状态 from {导入} where 导入日期>=#" & dtp1.value & "# and 导入日期<#" & dtp2.value.AddDays(1) & "# and 联系电话=\'" & dr("联系电话") &"\'"
Tables("导入_table2").DataSource =cmd.ExecuteReader
Tables("导入_table2").AutoSizeCols
rx.text = "销售单"
rx.Style.FontBold = True \'字体加粗
rx.Style.FontSize = cstr(Tables("打印设置").Current("标题字体大小"))
rx.Style.TextAlignHorz = prt.AlignHorzEnum.Center \'水平居中排列
rx.Style.Spacing.Bottom = cstr(Tables("打印设置").Current("表格离表头距离"))
doc.Body.Children.Add(rx) \'加入到报表中
rx = new prt.RenderText
rx.text ="客户名称:" & dr("收货人")
rx.y=cstr(Tables("打印设置").Current("客户名称上位置"))
rx.Style.TextAlignHorz = prt.AlignHorzEnum.left \'水平居中排列
rx.Style.Spacing.Bottom = 1 \'和下面的对象(表格)距离3毫米
doc.Body.Children.Add(rx) \'加入到报表中
\'指定行数?列数?列宽?行高
rx = new prt.RenderText
rx.text ="日期:" & format(Date.Today, "yyyy-MM-dd")
rx.y=cstr(Tables("打印设置").Current("客户名称上位置"))
rx.x=cstr(Tables("打印设置").Current("日期左位置"))
rx.Style.TextAlignHorz = prt.AlignHorzEnum.left \'水平居中排列
rx.Style.Spacing.Bottom = 1 \'和下面的对象(表格)距离3毫米
doc.Body.Children.Add(rx) \'加入到报表中
rx = new prt.RenderText
rx.text ="联系电话:" & dr("联系电话")
rx.y=cstr(Tables("打印设置").Current("客户名称上位置"))
rx.x=cstr(Tables("打印设置").Current("电话左位置"))
\'\'rx.Style.FontBold = True \'字体加粗
rx.Style.TextAlignHorz = prt.AlignHorzEnum.left \'水平居中排列
rx.Style.Spacing.Bottom = 1 \'和下面的对象(表格)距离3毫米
doc.Body.Children.Add(rx) \'加入到报表中
rx = new prt.RenderText
rx.text ="收货地址:" & dr("收货地址")
rx.y=cstr(Tables("打印设置").Current("地址上位置"))
rx.Style.TextAlignHorz = prt.AlignHorzEnum.left \'水平居中排列
rx.Style.Spacing.Bottom = 1 \'和下面的对象(表格)距离3毫米
doc.Body.Children.Add(rx) \'加入到报表中
\'指定行数?列数?列宽?行高
Dim i As Integer=1
Dim CurRow As Row
rt.Cols.Count = 5 \'报表_table1总列数
rt.CellStyle.Spacing.All = 1 \'单元格内容缩进1毫米
rt.Style.GridLines.All = New prt.Linedef \'报表_table1网格线
rt.Style.TextAlignVert = prt.AlignVertEnum.Center \'内容垂直居中
rt.Style.TextAlignHorz = prt.AlignHorzEnum.Center
rt.Style.FontSize = 13 \'大体大小为16磅
rt.Cells(0,0).Text= "序号"
rt.Cells(0,1).Text= "商品名称"
rt.Cells(0,2).Text = "规格"
rt.Cells(0,3).Text = "数量"
rt.Cells(0,4).Text = "金额"
Dim sl As Double=0
Dim je As Double=0
Dim xh As Integer=1
For Each r As Row In Tables("导入_table2").Rows
CurRow= r
rt.Cells(i,0).Text= xh
rt.Cells(i,1).Text =CurRow("商品名称")
rt.Cells(i,2).Text= CurRow("规格")
rt.Cells(i,3).Text= CurRow("数量")
rt.Cells(i,4).Text= CurRow("商品金额")
str= CurRow("商品名称")
sl=sl+CurRow("数量")
je=je+CurRow("商品金额")
i=i+1
xh=xh+1
Next
Doc.Print
Next
-- 发布时间：2021/3/13 12:02:00
--
此主题相关图片如下：1.png
此主题相关图片如下：2.jpg
一个单张打印效果,一张连续打印效果
-- 发布时间：2021/3/13 14:31:00
--
打印机设置问题吧：http://www.foxtable.com/webhelp/topics/2904.htm