Foxtable(狐表) → 用户栏目 → 专家坐堂 → PDF


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

主题：PDF
美女呀，离线，留言给我吧！
bm
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：437 积分：3463 威望：0 精华：0 注册：2011/9/13 23:27:00 		PDF  发帖心情 Post By：2015/3/17 11:01:00 [只看该作者]

Dim CurRow As Row = Tables("业务大表").Current
Dim P As String
If CurRow("客户编号") >"" Then
   p = CurRow("客户编号")
Else
   p = CurRow("编号")
End If
Dim dr As DataRow=DataTables("连接地址").DataRows(0)
Dim bm As String = dr("生成箱单保存位置")
FileSys.CreateDirectory( bm & "\" & P )
Dim tbl As Table = Tables("明细_Table4")
For i As Integer = 0 To tbl.Rows.Count - 1
Dim doc As New PrintDoc
Dim rt As New prt.RenderTable()
Dim Cur As Row = tbl.Rows(i)
rt.Rows.Count = 9
rt.Cols.Count = 7
rt.Height = 150
rt.Width = 250
rt.Cols(0).Width = 65
rt.Cols(1).Width = 45
rt.Cols(5).Width = 38
rt.Cols(6).Width = 27
rt.Rows(0).Height = 12
rt.Rows(1).Height = 12
rt.Rows(3).Height = 10
rt.Rows(4).Height = 8
rt.Rows(7).Height = 35
rt.Rows(8).Height = 20
rt.Cells(0,1).SpanRows = 2
rt.Cells(3,0).SpanRows = 2
rt.Cells(4,1).SpanRows = 4
rt.Cells(4,2).SpanRows = 4
rt.Cells(4,3).SpanRows = 4
rt.Cells(4,4).SpanRows = 4
rt.Cells(4,5).SpanRows = 4
rt.Cells(4,6).SpanRows = 4
rt.Cells(1,3).SpanRows = 4
rt.Cells(0,1).SpanCols = 6
rt.Cells(8,5).SpanCols = 2
rt.Cells(2,4).SpanCols = 3

rt.Cells(0,1).Style.Borders.Top = New prt.LineDef("0mm",Color.White)
rt.Cells(0,1).Style.Borders.Right = New prt.LineDef("0mm",Color.White)


Dim r As New prt.RenderText
   r = New prt.RenderText
   r.Text = "冷藏温度"
   r.X = 2
   r.Y = 2
   r.Style.Font = New Font("宋体", 10)
   rt.Cells(0,0).Area.Children.Add(r)

   r = New prt.RenderText
   r.Text = Cur("C")
   r.X = 25
   r.Y = 2
   r.Style.Font = New Font("宋体", 12, FontStyle.Bold)
   rt.Cells(0,0).Area.Children.Add(r)

   r = New prt.RenderText
   r.Text = "℃"
   r.X = 32
   r.Y = 2
   r.Style.Font = New Font("宋体", 10)
   rt.Cells(0,0).Area.Children.Add(r)

   r = New prt.RenderText
   r.Text = Cur("F")
   r.X = 43
   r.Y = 2
   r.Style.Font = New Font("宋体", 12, FontStyle.Bold)
   rt.Cells(0,0).Area.Children.Add(r)


   r = New prt.RenderText
   r.Text ="℉"
   r.X = 51
   r.Y = 2
   r.Style.Font = New Font("宋体", 10)
   rt.Cells(0,0).Area.Children.Add(r)

   r = New prt.RenderText
   r.Text = "等级"
   r.X = 2
   r.Style.Font = New Font("宋体", 10)
   rt.Cells(1,0).Area.Children.Add(r)

   r = New prt.RenderText
   r.Text = "危规页码"
   r.X = 13
   r.Style.Font = New Font("宋体", 10)
   rt.Cells(1,0).Area.Children.Add(r)

   r = New prt.RenderText
   r.Text = "联合国编号"
   r.X = 32
   r.Style.Font = New Font("宋体", 10)
   rt.Cells(1,0).Area.Children.Add(r)

   r = New prt.RenderText
   r.Text = "闪点"
   r.X = 53
   r.Style.Font = New Font("宋体", 10)
   rt.Cells(1,0).Area.Children.Add(r)

   r = New prt.RenderText
   r.Text = Cur("等级")
   r.X = 2
   r.Y = 5
   r.Style.Font = New Font("宋体", 12, FontStyle.Bold)
   rt.Cells(1,0).Area.Children.Add(r)

   r = New prt.RenderText
   r.Text =Cur("页码")
   r.X = 13
   r.Y = 5
   r.Style.Font = New Font("宋体", 12, FontStyle.Bold)
   rt.Cells(1,0).Area.Children.Add(r)

   r = New prt.RenderText
   r.Text = Cur("联合国编号")
   r.X = 32
   r.Y = 5
   r.Style.Font = New Font("宋体", 12, FontStyle.Bold)
   rt.Cells(1,0).Area.Children.Add(r)

   r = New prt.RenderText
   r.Text = Cur("闪点")
   r.X = 53
   r.Y = 5
   r.Style.Font = New Font("宋体", 12, FontStyle.Bold)
   rt.Cells(1,0).Area.Children.Add(r)

   r = New prt.RenderText
   r.Text = "船名航次"
   r.X = 2
   r.Style.Font = New Font("宋体", 10)
   rt.Cells(2,0).Area.Children.Add(r)

   r = New prt.RenderText
   r.Text = CurRow("船名航次")
   r.X = 2
   r.Y = 6
   r.Style.Font = New Font("宋体", 12, FontStyle.Bold)
   rt.Cells(2,0).Area.Children.Add(r)

   r = New prt.RenderText
   r.Text = "箱号"
   r.X = 2
   r.Style.Font = New Font("宋体", 10)
   rt.Cells(3,0).Area.Children.Add(r)

   r = New prt.RenderText
   r.Text = Cur("箱号")
   r.X = 2
   r.Y = 6
   r.Style.Font = New Font("宋体", 12, FontStyle.Bold)
   rt.Cells(3,0).Area.Children.Add(r)
 
   r = New prt.RenderText
   r.Text = "封号"
   r.X = 2
   r.Style.Font = New Font("宋体", 10)
   rt.Cells(5,0).Area.Children.Add(r)

   r = New prt.RenderText
   r.Text = Cur("封号")
   r.X = 2
   r.Y = 6
   r.Style.Font = New Font("宋体", 12, FontStyle.Bold)
   rt.Cells(5,0).Area.Children.Add(r)
 
   r = New prt.RenderText
   r.Text = "尺寸/箱型"
   r.X = 2
  r.Style.Font = New Font("宋体", 10)
   rt.Cells(6,0).Area.Children.Add(r)

   r = New prt.RenderText
   r.Text = Cur("箱型")
   r.X = 2
   r.Y = 6
   r.Style.Font = New Font("宋体", 12, FontStyle.Bold)
   rt.Cells(6,0).Area.Children.Add(r)

   r = New prt.RenderText
   r.Text = "装箱地址"
   r.X = 2
   r.Style.Font = New Font("宋体",10)
   rt.Cells(7,0).Area.Children.Add(r)

   r = New prt.RenderText
   r.Text = CurRow("门点详情")
   r.X = 2
   r.Y = 6
   r.Style.Font = New Font("宋体", 12, FontStyle.Bold)
   rt.Cells(7,0).Area.Children.Add(r)
  
   r = New prt.RenderText
   r.Text = "装箱日期"
   r.X = 2
   r.Style.Font = New Font("宋体", 10)
   rt.Cells(8,0).Area.Children.Add(r)

   r = New prt.RenderText
   r.Text = Cur("装箱日期")
   r.X = 2
   r.Y = 6
   r.Style.Font = New Font("宋体", 12, FontStyle.Bold)
   rt.Cells(8,0).Area.Children.Add(r)
 
   r = New prt.RenderText
   r.Text = "装货港"
   r.X = 2
   r.Style.Font = New Font("宋体", 10)
   rt.Cells(2,1).Area.Children.Add(r)

   r = New prt.RenderText
   r.Text = "SHANGHAI"
   r.X = 2
   r.Y = 6
   r.Style.Font = New Font("宋体", 12, FontStyle.Bold)
   rt.Cells(2,1).Area.Children.Add(r)
 
   r = New prt.RenderText
   r.Text = "中转港"
   r.X = 2
   r.Style.Font = New Font("宋体", 10)
   rt.Cells(2,2).Area.Children.Add(r)

   r = New prt.RenderText
   r.Text = Currow("中转港")
   r.X = 2
   r.Y = 6
   r.Style.Font = New Font("宋体", 12, FontStyle.Bold)
   rt.Cells(2,2).Area.Children.Add(r)

  r = New prt.RenderText
   r.Text = "目的港"
   r.X = 2
   r.Style.Font = New Font("宋体", 10)
   rt.Cells(2,3).Area.Children.Add(r)

   r = New prt.RenderText
   r.Text = Currow("目的港")
   r.X = 2
   r.Y = 6
   r.Style.Font = New Font("宋体", 12, FontStyle.Bold)
   rt.Cells(2,3).Area.Children.Add(r)
 
   r = New prt.RenderText
   r.Text = "关单号"
   r.X = 2
   r.Y = 1
   r.Style.Font = New Font("宋体", 10)
   rt.Cells(3,1).Area.Children.Add(r)

   r = New prt.RenderText
   r.Text = "件数"
   r.X = 2
   r.Y = 1
   r.Style.Font = New Font("宋体", 10)
   rt.Cells(3,2).Area.Children.Add(r)
 
   r = New prt.RenderText
   r.Text = "毛重"
   r.X = 2
   r.Y = 1
   r.Style.Font = New Font("宋体", 10)
   rt.Cells(3,3).Area.Children.Add(r)

   r = New prt.RenderText
   r.Text = "体积"
   r.X = 2
   r.Y = 1
   r.Style.Font = New Font("宋体", 10)
   rt.Cells(3,4).Area.Children.Add(r)

   r = New prt.RenderText
   r.Text = "货名"
   r.X = 2
   r.Y = 1
   r.Style.Font = New Font("宋体", 10)
   rt.Cells(3,5).Area.Children.Add(r)
 
  r = New prt.RenderText
   r.Text = "唛头"
   r.X = 2
   r.Y = 1
   r.Style.Font = New Font("宋体", 10)
   rt.Cells(3,6).Area.Children.Add(r)

   r = New prt.RenderText
   r.Text = Cur("关单号")
   r.X = 2
   r.Y = 2
   r.Style.Font = New Font("宋体", 12, FontStyle.Bold)
   rt.Cells(4,1).Area.Children.Add(r)

   r = New prt.RenderText
   r.Text =Cur("件数")
   r.X = 2
   r.Y = 2
   r.Style.Font = New Font("宋体", 12, FontStyle.Bold)
   rt.Cells(4,2).Area.Children.Add(r)
 
   r = New prt.RenderText
   r.Text = Cur("毛重")
   r.X = 2
   r.Y = 2
   r.Style.Font = New Font("宋体", 12, FontStyle.Bold)
   rt.Cells(4,3).Area.Children.Add(r)

   r = New prt.RenderText
   r.Text = Cur("体积")
   r.X = 2
   r.Y = 2
   r.Style.Font = New Font("宋体", 12, FontStyle.Bold)
   rt.Cells(4,4).Area.Children.Add(r)

   r = New prt.RenderText
   r.Text = Cur("货名")
   r.X = 2
   r.Y = 2
   r.Style.Font = New Font("宋体", 12, FontStyle.Bold)
   rt.Cells(4,5).Area.Children.Add(r)
 
  r = New prt.RenderText
   r.Text = Cur("唛头")
   r.X = 2
   r.Y = 2
   r.Style.Font = New Font("宋体", 12, FontStyle.Bold)
   rt.Cells(4,6).Area.Children.Add(r)

   r = New prt.RenderText
   r.Text = "车号"
   r.X = 2
   r.Style.Font = New Font("宋体", 10)
   rt.Cells(8,1).Area.Children.Add(r)

   r = New prt.RenderText
   r.Text = Cur("车号")
   r.X = 2
   r.Y = 6
   r.Style.Font = New Font("宋体", 12, FontStyle.Bold)
   rt.Cells(8,1).Area.Children.Add(r)
 
   r = New prt.RenderText
   r.Text = "总件数"
   r.X = 2
  r.Style.Font = New Font("宋体", 10)
   rt.Cells(8,2).Area.Children.Add(r)

   r = New prt.RenderText
   r.Text = Cur("总件数")
   r.X = 2
   r.Y = 6
   r.Style.Font = New Font("宋体", 12, FontStyle.Bold)
   rt.Cells(8,2).Area.Children.Add(r)

  r = New prt.RenderText
   r.Text = "总毛重"
   r.X = 2
  r.Style.Font = New Font("宋体", 10)
   rt.Cells(8,3).Area.Children.Add(r)

   r = New prt.RenderText
   r.Text = Cur("总毛重")
   r.X = 2
   r.Y = 6
   r.Style.Font = New Font("宋体", 12, FontStyle.Bold)
   rt.Cells(8,3).Area.Children.Add(r)

  r = New prt.RenderText
   r.Text = "总体积"
   r.X = 2
   r.Style.Font = New Font("宋体", 10)
   rt.Cells(8,4).Area.Children.Add(r)

   r = New prt.RenderText
   r.Text = Cur("总体积")
   r.X = 2
   r.Y = 6
   r.Style.Font = New Font("宋体", 12, FontStyle.Bold)
   rt.Cells(8,4).Area.Children.Add(r)
 
   r = New prt.RenderText
   r.Text = "备注"
   r.X = 2
   r.Style.Font = New Font("宋体", 10)
   rt.Cells(8,5).Area.Children.Add(r)

   r = New prt.RenderText
   r.Text = Cur("备注")
   r.X = 2
   r.Y = 6
   r.Style.Font = New Font("宋体", 12, FontStyle.Bold)
   rt.Cells(8,5).Area.Children.Add(r)

   r = New prt.RenderText
   r.Text = "CONTAINER LOAD PLAN"
   r.X = 17
   r.Y = 0
   r.Style.Font = New Font("宋体",20, FontStyle.Bold)
   rt.Cells(0,1).Area.Children.Add(r)
 
   r = New prt.RenderText
   r.Text = "装 箱 单"
   r.X = 38
   r.Y = 9
   r.Style.Font = New Font("宋体",20, FontStyle.Bold)
   rt.Cells(0,1).Area.Children.Add(r)

   r = New prt.RenderText
   r.Text = "NO:" & Cur("数据编号")
   r.X = 148
   r.Y = 16
   r.Style.TextColor = Color.Crimson
   r.Style.Font = New Font("宋体",14, FontStyle.Bold)
   rt.Cells(0,1).Area.Children.Add(r)

rt.CellStyle.Spacing.All = 1
rt.Style.GridLines.All = New Prt.LineDef(0.5,Color.black)
rt.Style.TextAlignVert = prt.AlignVertEnum.Center
doc.Body.Children.Add(rt)
doc.PageSetting.Landscape = True

Dim P1 As String = CurRow("关单号") & "  " & CurRow("客户") & "装箱单"
doc.SavePDF(bm & "\" & P & "\" & p1 & ".pdf")
Next

 

如上面的代码生成的是好几个PDF文件，放在一个文件夹里。现在帮忙需要生成一个分页PDF文件

[此贴子已经被作者于2015/3/17 11:06:36编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2015/3/17 11:41:00 [只看该作者]

 不知道你什么意思，分页参考

 

 http://www.foxtable.com/help/topics/2241.htm

 

 不会做，请上传具体例子。
 回到顶部
美女呀，离线，留言给我吧！
bm
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：437 积分：3463 威望：0 精华：0 注册：2011/9/13 23:27:00 		  发帖心情 Post By：2015/3/17 12:48:00 [只看该作者]

就是上面的代码生成的是好几个PDF文件，放在一个文件夹里。现在帮忙需要生成一个分页PDF文件

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


加好友 发短信
等级：五尾狐 帖子：1100 积分：8985 威望：0 精华：0 注册：2014/3/15 14:36:00 		  发帖心情 Post By：2015/3/17 13:09:00 [只看该作者]

做两个按钮:上一页，下一页，依次打开这几个PDF文件那可。

 回到顶部
美女呀，离线，留言给我吧！
bm
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：437 积分：3463 威望：0 精华：0 注册：2011/9/13 23:27:00 		  发帖心情 Post By：2015/3/17 13:18:00 [只看该作者]

可以生成一个PDF文件吗

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


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2015/3/17 14:13:00 [只看该作者]

以下是引用bm在2015/3/17 13:18:00的发言：
可以生成一个PDF文件吗

 

呃，你可以生成的时候，先不要保存成pdf，最后一次性保存不行么？

 

具体问题，请上传简单例子
 回到顶部
美女呀，离线，留言给我吧！
bm
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：437 积分：3463 威望：0 精华：0 注册：2011/9/13 23:27:00 		  发帖心情 Post By：2015/3/17 14:47:00 [只看该作者]

比较弱，帮助也看了一个上午了。没一点头绪。帮忙改改
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.foxdb
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2015/3/17 14:55:00 [只看该作者]

    
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.foxdb
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03906 秒, 6 次数据查询