| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 打印小piao，执行下列代码偶尔卡死偶尔好用 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=187171) |
| -- 作者：237756360 -- 发布时间：2023/6/28 13:41:00 -- 打印小piao，执行下列代码偶尔卡死偶尔好用 求助：打印小票，执行下列代码先卡死10分钟后，后续再多次使用没问题，等关机再开就又卡死，再等10分钟，循环往复。。。。 DataTables("其他消费").Load Tables("其他消费").Filter = "编号 = \'" & Vars("ktbh") & "\'" If Forms("结账").Controls("RadioButton2").Checked = True Then Dim doc As New PrintDoc Dim rt As New prt.RenderText Dim ra As New prt.RenderArea ra.Style.Spacing.Bottom = 2 ra.DataBinding.DataSource = BindTables("其他消费") \'将容器绑定到订单表 ra.Style.Spacing.Bottom = 2 \'设置格式 doc.PageSetting.TopMargin = 1 doc.PageSetting.BottomMargin = 0 doc.PageSetting.LeftMargin = 0 doc.PageSetting.RightMargin = 0 doc.PageSetting.Width = 58 \'纸张宽度为57毫米 Dim dd As Integer = DataTables("其他消费").SQLCompute("Count(*)", "编号 = \'" & Vars("ktbh") & "\'") doc.PageSetting.Height = 88 + (dd * 10)\'纸张高度为61毫米 \'加入标题 Dim rx As New prt.RenderText rx.text = "忘忧阁" rx.Style.Font = New Font("华文行楷", 16, FontStyle.Bold) \'设置字体 rx.Style.TextAlignHorz = prt.AlignHorzEnum.Center \'水平居中排列 rx.Style.Spacing.Bottom = 3 \'和下面的对象(表格)距离3毫米 doc.Body.Children.Add(rx) \'加入到报表中 \'加入其他内容 Dim dfd As DataRow = DataTables("结账记录").SQLFind("编号 = \'" & Vars("ktbh") & "\'") Dim rx1 As New prt.RenderText rx1.text = "桌台号 ：" & dfd("桌台号") & vblf & "结账时间：" & vblf & dfd("结账时间") & vblf & "开台时间：" & vblf & dfd("开台时间") & vblf & "关台时间：" & vblf & dfd("关台时间") & vblf & "总时长 ：" & dfd("总用时") & vblf & "消费时长：" & dfd("消费时长") & vblf & "台 费：" & dfd("台费") & "元" & vblf & "其他消费：" & dfd("本次消费") - dfd("台费") & "元" & vblf & "总消费 ：" & dfd("本次消费") & "元" & vblf & "优惠金额：" & dfd("优惠金额") & "元" & vblf & "实付款 ：" & dfd("本次消费") - dfd("优惠金额") & "元" & vblf & "支付方式：" & dfd("支付方式") & vblf & " " & vblf & "其他消费明细：" & vblf & " " & vblf doc.Body.Children.Add(rx1) \'加入到报表中 rt.Text = "商品名:" & " " & "[Fields!商品名.Value]" ra.Children.Add(rt) rt = New prt.RenderText rt.Text = "数量:[Fields!数量.Value] 单价:[Fields!单价1.Value] 价格:[Fields!价格1.Value]" \'rt.Style.TextAlignHorz = prt.AlignHorzEnum.Right \'右侧排列 ra.Children.Add(rt) doc.body.Children.Add(ra) \'切纸 Dim rx2 As New prt.RenderText rx2.text = vblf & "." doc.Body.Children.Add(rx2) \'加入到报表中 \' Doc.PrinterName = DataTables("IUsers").DataRows(0)("默认打印机") doc.print() End If If Forms("结账").Controls("RadioButton1").Checked = True Then Dim doc As New PrintDoc Dim rt As New prt.RenderText Dim ra As New prt.RenderArea ra.Style.Spacing.Bottom = 2 ra.DataBinding.DataSource = BindTables("其他消费") \'将容器绑定到订单表 ra.Style.Spacing.Bottom = 2 \'设置格式 doc.PageSetting.TopMargin = 1 doc.PageSetting.BottomMargin = 0 doc.PageSetting.LeftMargin = 0 doc.PageSetting.RightMargin = 0 doc.PageSetting.Width = 58 \'纸张宽度为57毫米 Dim dd As Integer = DataTables("其他消费").SQLCompute("Count(*)", "编号 = \'" & Vars("ktbh") & "\'") doc.PageSetting.Height = 88 + (dd * 10)\'纸张高度为61毫米 \'加入标题 Dim rx As New prt.RenderText rx.text = "忘忧阁" rx.Style.Font = New Font("华文行楷", 16, FontStyle.Bold) \'设置字体 rx.Style.TextAlignHorz = prt.AlignHorzEnum.Center \'水平居中排列 rx.Style.Spacing.Bottom = 3 \'和下面的对象(表格)距离3毫米 doc.Body.Children.Add(rx) \'加入到报表中 \'加入其他内容 Dim dfd As DataRow = DataTables("结账记录").SQLFind("编号 = \'" & Vars("ktbh") & "\'") Dim rx1 As New prt.RenderText rx1.text = "桌台号 ：" & dfd("桌台号") & vblf & "结账时间：" & vblf & dfd("结账时间") & vblf & "开台时间：" & vblf & dfd("开台时间") & vblf & "关台时间：" & vblf & dfd("关台时间") & vblf & "总时长 ：" & dfd("总用时") & vblf & "消费时长：" & dfd("消费时长") & vblf & "台 费：" & dfd("台费") & "元" & vblf & "其他消费：" & dfd("本次消费") - dfd("台费") & "元" & vblf & "总消费 ：" & dfd("本次消费") & "元" & vblf & "优惠金额：" & dfd("优惠金额") & "元" & vblf & "实付款 ：" & dfd("本次消费") - dfd("优惠金额") & "元" & vblf & "会员余额：" & dfd("消费后余额") & vblf & " " & vblf & "其他消费明细：" & vblf & " " & vblf doc.Body.Children.Add(rx1) \'加入到报表中 rt.Text = "商品名:" & " " & "[Fields!商品名.Value]" ra.Children.Add(rt) rt = New prt.RenderText rt.Text = "数量:[Fields!数量.Value] 单价:[Fields!单价1.Value] 价格:[Fields!价格1.Value]" \'rt.Style.TextAlignHorz = prt.AlignHorzEnum.Right \'右侧排列 ra.Children.Add(rt) doc.body.Children.Add(ra) \'切纸 Dim rx2 As New prt.RenderText rx2.text = vblf & "." doc.Body.Children.Add(rx2) \'加入到报表中 \' Doc.PrinterName = DataTables("IUsers").DataRows(0)("默认打印机") doc.print() End If
|
| -- 作者：有点蓝 -- 发布时间：2023/6/28 13:44:00 -- 看不出有什么问题。"其他消费"表加载有很多数据？ |
| -- 作者：237756360 -- 发布时间：2023/6/28 14:45:00 -- 最多10条 |
| -- 作者：有点蓝 -- 发布时间：2023/6/28 14:45:00 -- 请上传实例测试 |