Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]升级到狐表16.3.27版后出现的打印问题


  共有2838人关注过本帖树形打印复制链接

主题：[求助]升级到狐表16.3.27版后出现的打印问题
帅哥哟，离线，有人找我吗？
WUZHAN
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：373 积分：2732 威望：0 精华：0 注册：2012/2/17 20:05:00 		[求助]升级到狐表16.3.27版后出现的打印问题  发帖心情 Post By：2016/3/28 10:21:00 [显示全部帖子]

在以前的版本里预览和打印出来的效果是一样的，升级到3.27版后出现的问题，请问老师们如何解决？
图片点击可在新窗口打开查看此主题相关图片如下：点打印按钮后.jpg
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下：点击打印按钮后及打印出来的样子.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
WUZHAN
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：373 积分：2732 威望：0 精华：0 注册：2012/2/17 20:05:00 		  发帖心情 Post By：2016/3/28 10:24:00 [显示全部帖子]

'//定义相关对象//
Dim doc  As New PrintDoc  '定义一个报表
doc.PageSetting.Width = 80 '页面宽度毫米
doc.PageSetting.Height = 290 '页面高度毫米
Doc.PageSetting.LeftMargin = 1 '页面左边距毫米
Doc.PageSetting.TopMargin = 1 '页面上边距毫米
Doc.Stacking = prt.StackingRulesEnum.InlineLeftToRight '设置排列方式
'doc.PageSetting.Landscape = True '横向打印
doc.AutoRotate = False  '如果纸张的宽度超过高度,要加上这行代码

Dim ra As New prt.RenderArea '定义一个容器
Dim rt  As prt.RenderText '定义一个文本
Dim  rg As  prt.RenderGraphics '定义一个图形rg
Dim Bar As New BarCodeBuilder '定义一个条形码


Dim t As Table =  Tables("总表") '指定数据来源表
For i As Integer = t.TopPosition To t.BottomPosition
   Dim r As Row = t.Rows(i)
   For j As Integer = 0 To val(txt1) - 1 '指定打印数量
      If j  >= 0 Then
        ra = new prt.RenderArea '新建一个容器
        Doc.Body.Children.Add(ra) '将容器加入报表
       End If

    ra.Style.Padding.Top = 0 '上边距0毫米
    ra.Style.Padding.Left = 0 '左边距0毫米
    ra.Style.Padding.Right = 0 '右边距0毫米
    ra.Width = 78  '宽度毫米
    ra.Height = 10 '高度毫米
    ra.Style.Spacing.All =  2
    'ra.Style.Borders.All = New prt.Linedef(0.3, Color.Red) '设置边框
    ra.SplitHorzBehavior = prt.SplitBehaviorEnum.Never  '禁止水平分割
    ra.SplitVertBehavior = prt.SplitBehaviorEnum.Never  '禁止垂直分割

   ra.Style.Spacing.Right = 1 '设置标签之间的所有和上下间隔为2毫米
   ra.Style.Spacing.Bottom = 1
   ra.Style.Padding.All = 0 ' 标签内容距离边框为1毫米
   ' ra.Style.Borders.All = New prt.Linedef(0.1, Color.Red) '设置边框

     rt = New prt.RenderText
     rt.Text = "" & r("特护")
     rt.X = 1
     rt.Y = 2
     'rt.Style.TextAlignHorz = prt.AlignHorzEnum.Center '水平居中
     rt.Style.Font = New Font("宋体", 11, FontStyle.Bold) '设置字体,字号
     ra.Children.Add(rt)  '添加到容器中

     rt = New prt.RenderText
     rt.Text = Format(cDate(r("入厂时间")), "MM.dd")
     rt.X = 5
     rt.Y = 2
     'rt.Style.TextAlignHorz = prt.AlignHorzEnum.Center '水平居中
     rt.Style.Font = New Font("宋体", 10, FontStyle.Bold) '设置字体,字号
     ra.Children.Add(rt)  '添加到容器中

     rt = New prt.RenderText
     rt.Text = "" & r("客户名称")
     rt.X = 14
     rt.Y = 2
     'rt.Style.TextAlignHorz = prt.AlignHorzEnum.Center '水平居中
     rt.Style.Font = New Font("宋体", 11, FontStyle.Bold) '设置字体,字号
     ra.Children.Add(rt)  '添加到容器中

     rt = New prt.RenderText
     rt.Text = "" & r("车辆信息")
     rt.X = 29
     rt.Y = 2
     'rt.Style.TextAlignHorz = prt.AlignHorzEnum.Center '水平居中
     rt.Style.Font = New Font("宋体", 10, FontStyle.Bold) '设置字体,字号
     ra.Children.Add(rt)  '添加到容器中
    
     rt = New prt.RenderText
     rt.Text = "" & r("单号")
     rt.X = 45
     rt.Y = 1
     ' rt.Style.TextAlignHorz = prt.AlignHorzEnum.Center '水平居中
     rt.Style.TextAlignVert = prt.AlignVertEnum.Center '垂直居中 
     rt.Style.Font = New Font("宋体", 14, FontStyle.Bold) '设置字体,字号
     ra.Children.Add(rt)  '添加到容器中

     rt = New prt.RenderText
     rt.Text = "" & r("件数")
     rt.X = 66
     rt.Y = 1.5
     'rt.Style.TextAlignHorz = prt.AlignHorzEnum.Center '水平居中
     rt.Style.Font = New Font("黑体", 11, FontStyle.Bold) '设置字体,字号
     ra.Children.Add(rt)  '添加到容器中      
    Next
Next
Doc.Preview() '预览报表
 回到顶部
帅哥哟，离线，有人找我吗？
WUZHAN
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：373 积分：2732 威望：0 精华：0 注册：2012/2/17 20:05:00 		  发帖心情 Post By：2016/3/28 10:47:00 [显示全部帖子]

打印后就是这情况。

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目3.foxdb

[此贴子已经被作者于2016/3/28 10:47:07编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
WUZHAN
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：373 积分：2732 威望：0 精华：0 注册：2012/2/17 20:05:00 		  发帖心情 Post By：2016/3/28 10:49:00 [显示全部帖子]

3月以前的版本都没有问题，现在升级到3.27版后就出现了这问题。
 回到顶部
帅哥哟，离线，有人找我吗？
WUZHAN
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：373 积分：2732 威望：0 精华：0 注册：2012/2/17 20:05:00 		  发帖心情 Post By：2016/3/28 10:55:00 [显示全部帖子]

这个例子就是我单独的啊，一点打印就是这情况，预览和打印出来的不一样

 回到顶部
帅哥哟，离线，有人找我吗？
WUZHAN
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：373 积分：2732 威望：0 精华：0 注册：2012/2/17 20:05:00 		  发帖心情 Post By：2016/3/28 10:56:00 [显示全部帖子]

我打印机还是原来的打印机，

 
 回到顶部
帅哥哟，离线，有人找我吗？
WUZHAN
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：373 积分：2732 威望：0 精华：0 注册：2012/2/17 20:05:00 		  发帖心情 Post By：2016/3/28 11:06:00 [显示全部帖子]

'//定义变量//
Dim txt1 As String = e.Form.Controls("ComboBox03").Text   '定义变量,用于手动输入打印数量
Dim cmb1 As String = e.Form.Controls("ComboBox1").Text  '定义变量,用于手动选择打印机

'//定义相关对象//
Dim doc  As New PrintDoc  '定义一个报表
doc.PageSetting.Width = 80 '页面宽度毫米
doc.PageSetting.Height = 290 '页面高度毫米
Doc.PageSetting.LeftMargin = 1 '页面左边距毫米
Doc.PageSetting.TopMargin = 1 '页面上边距毫米
Doc.Stacking = prt.StackingRulesEnum.InlineLeftToRight '设置排列方式
'doc.PageSetting.Landscape = True '横向打印
doc.AutoRotate = False  '如果纸张的宽度超过高度,要加上这行代码

Dim ra As New prt.RenderArea '定义一个容器
Dim rt  As prt.RenderText '定义一个文本
Dim  rg As  prt.RenderGraphics '定义一个图形rg
Dim Bar As New BarCodeBuilder '定义一个条形码


Dim t As Table =  Tables("总表") '指定数据来源表
For i As Integer = t.TopPosition To t.BottomPosition
   Dim r As Row = t.Rows(i)
   For j As Integer = 0 To val(txt1) - 1 '指定打印数量
      If j  >= 0 Then
        ra = new prt.RenderArea '新建一个容器
        Doc.Body.Children.Add(ra) '将容器加入报表
       End If

    ra.Style.Padding.Top = 0 '上边距0毫米
    ra.Style.Padding.Left = 0 '左边距0毫米
    ra.Style.Padding.Right = 0 '右边距0毫米
    ra.Width = 78  '宽度毫米
    ra.Height = 10 '高度毫米
    ra.Style.Spacing.All =  2
    'ra.Style.Borders.All = New prt.Linedef(0.3, Color.Red) '设置边框
    ra.SplitHorzBehavior = prt.SplitBehaviorEnum.Never  '禁止水平分割
    ra.SplitVertBehavior = prt.SplitBehaviorEnum.Never  '禁止垂直分割

   ra.Style.Spacing.Right = 1 '设置标签之间的所有和上下间隔为2毫米
   ra.Style.Spacing.Bottom = 1
   ra.Style.Padding.All = 0 ' 标签内容距离边框为1毫米
   ' ra.Style.Borders.All = New prt.Linedef(0.1, Color.Red) '设置边框

     rt = New prt.RenderText
     rt.Text = "" & r("特护")
     rt.X = 1
     rt.Y = 2
     'rt.Style.TextAlignHorz = prt.AlignHorzEnum.Center '水平居中
     rt.Style.Font = New Font("宋体", 11, FontStyle.Bold) '设置字体,字号
     ra.Children.Add(rt)  '添加到容器中

     rt = New prt.RenderText
     rt.Text = Format(cDate(r("入厂时间")), "MM.dd")
     rt.X = 5
     rt.Y = 2
     'rt.Style.TextAlignHorz = prt.AlignHorzEnum.Center '水平居中
     rt.Style.Font = New Font("宋体", 10, FontStyle.Bold) '设置字体,字号
     ra.Children.Add(rt)  '添加到容器中

     rt = New prt.RenderText
     rt.Text = "" & r("客户名称")
     rt.X = 14
     rt.Y = 2
     'rt.Style.TextAlignHorz = prt.AlignHorzEnum.Center '水平居中
     rt.Style.Font = New Font("宋体", 11, FontStyle.Bold) '设置字体,字号
     ra.Children.Add(rt)  '添加到容器中

     rt = New prt.RenderText
     rt.Text = "" & r("车辆信息")
     rt.X = 29
     rt.Y = 2
     'rt.Style.TextAlignHorz = prt.AlignHorzEnum.Center '水平居中
     rt.Style.Font = New Font("宋体", 10, FontStyle.Bold) '设置字体,字号
     ra.Children.Add(rt)  '添加到容器中
    
     rt = New prt.RenderText
     rt.Text = "" & r("单号")
     rt.X = 45
     rt.Y = 1
     ' rt.Style.TextAlignHorz = prt.AlignHorzEnum.Center '水平居中
     rt.Style.TextAlignVert = prt.AlignVertEnum.Center '垂直居中 
     rt.Style.Font = New Font("宋体", 14, FontStyle.Bold) '设置字体,字号
     ra.Children.Add(rt)  '添加到容器中

     rt = New prt.RenderText
     rt.Text = "" & r("件数")
     rt.X = 66
     rt.Y = 1.5
     'rt.Style.TextAlignHorz = prt.AlignHorzEnum.Center '水平居中
     rt.Style.Font = New Font("黑体", 11, FontStyle.Bold) '设置字体,字号
     ra.Children.Add(rt)  '添加到容器中      
    Next
Next
' //指定打印机//
Doc.PrinterName = cmb1 '指定打印机
  doc.print '直接打印
 ' Doc.Preview() '预览报表

 

为何不预览直接打印就可以呢？这说明就是最近升级版本造成的问题。现在几十台电脑都不能工作啊，郁闷，请尽快给予帮助啊！

 回到顶部
帅哥哟，离线，有人找我吗？
WUZHAN
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：373 积分：2732 威望：0 精华：0 注册：2012/2/17 20:05:00 		  发帖心情 Post By：2016/3/28 11:58:00 [显示全部帖子]

 doc.print '直接打印没有问题，Doc.Preview() '预览报表 就出现预览和打印出来的不一样，请抓紧时间升级吧。

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.06641 秒, 6 次数据查询