- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- PDF (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=65487)
-- 发布时间：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:41:00
--
不知道你什么意思，分页参考
http://www.foxtable.com/help/topics/2241.htm
不会做，请上传具体例子。
-- 发布时间：2015/3/17 12:48:00
--
就是上面的代码生成的是好几个PDF文件，放在一个文件夹里。现在帮忙需要生成一个分页PDF文件
-- 发布时间：2015/3/17 13:09:00
--
做两个按钮:上一页，下一页，依次打开这几个PDF文件那可。
-- 发布时间：2015/3/17 13:18:00
--
可以生成一个PDF文件吗
-- 发布时间：2015/3/17 14:13:00
--
可以生成一个PDF文件吗
呃，你可以生成的时候，先不要保存成pdf，最后一次性保存不行么？
具体问题，请上传简单例子
-- 发布时间：2015/3/17 14:47:00
--
比较弱，帮助也看了一个上午了。没一点头绪。帮忙改改
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.foxdb |
-- 发布时间：2015/3/17 14:55:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:管理项目1.foxdb |