PDF文件 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim doc As New PrintDoc
Dim rt As New prt.RenderTable()
Dim CurRow As Row = Tables("业务大表").Current
Dim Cur As Row = Tables("明细_Table4").Current

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 = 28
rt.Cols(6).Width = 20
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
   rt.Cells(0,0).Area.Children.Add(r)

   r = New prt.RenderText
   r.Text = Cur("C")
   r.X = 25
   r.Y = 2
   r.Style.FontBold = True
   rt.Cells(0,0).Area.Children.Add(r)

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

   r = New prt.RenderText
   r.Text = Cur("F")
   r.X = 43
   r.Y = 2
   r.Style.FontBold = True
   rt.Cells(0,0).Area.Children.Add(r)

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

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

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

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

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

   r = New prt.RenderText
   r.Text = Cur("等级")
   r.X = 2
   r.Y = 5
   r.Style.FontBold = True
   rt.Cells(1,0).Area.Children.Add(r)

   r = New prt.RenderText
   r.Text =Cur("页码")
   r.X = 13
   r.Y = 5
   r.Style.FontBold = True
   rt.Cells(1,0).Area.Children.Add(r)

   r = New prt.RenderText
   r.Text = Cur("联合国编号")
   r.X = 32
   r.Y = 5
   r.Style.FontBold = True
   rt.Cells(1,0).Area.Children.Add(r)

   r = New prt.RenderText
   r.Text = Cur("闪点")
   r.X = 53
   r.Y = 5
   r.Style.FontBold = True
   rt.Cells(1,0).Area.Children.Add(r)

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

   r = New prt.RenderText
   r.Text = CurRow("船名") & " " & CurRow("航次")
   r.X = 2
   r.Y = 6
   r.Style.FontBold = True
   rt.Cells(2,0).Area.Children.Add(r)

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

   r = New prt.RenderText
   r.Text = Cur("箱号")
   r.X = 2
   r.Y = 6
   r.Style.FontBold = True
   rt.Cells(3,0).Area.Children.Add(r)

   r = New prt.RenderText
   r.Text = "封号"
   r.X = 2
   rt.Cells(5,0).Area.Children.Add(r)

   r = New prt.RenderText
   r.Text = Cur("封号")
   r.X = 2
   r.Y = 6
   r.Style.FontBold = True
   rt.Cells(5,0).Area.Children.Add(r)

   r = New prt.RenderText
   r.Text = "尺寸/箱型"
   r.X = 2
   rt.Cells(6,0).Area.Children.Add(r)

   r = New prt.RenderText
   r.Text = Cur("箱型")
   r.X = 2
   r.Y = 6
   r.Style.FontBold = True
   rt.Cells(6,0).Area.Children.Add(r)

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

   r = New prt.RenderText
   r.Text = CurRow("门点详情")
   r.X = 2
   r.Y = 6
   r.Style.FontBold = True
   rt.Cells(7,0).Area.Children.Add(r)

   r = New prt.RenderText
   r.Text = "装箱日期"
   r.X = 2
   rt.Cells(8,0).Area.Children.Add(r)

   r = New prt.RenderText
   r.Text = Cur("装箱日期")
   r.X = 2
   r.Y = 6
   r.Style.FontBold = True
   rt.Cells(8,0).Area.Children.Add(r)

   r = New prt.RenderText
   r.Text = "装货港"
   r.X = 2
   rt.Cells(2,1).Area.Children.Add(r)

   r = New prt.RenderText
   r.Text = "SHANGHAI"
   r.X = 2
   r.Y = 6
   r.Style.FontBold = True
   rt.Cells(2,1).Area.Children.Add(r)

   r = New prt.RenderText
   r.Text = "中转港"
   r.X = 2
   rt.Cells(2,2).Area.Children.Add(r)

   r = New prt.RenderText
   r.Text = Currow("中转港")
   r.X = 2
   r.Y = 6
   r.Style.FontBold = True
   rt.Cells(2,2).Area.Children.Add(r)

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

   r = New prt.RenderText
   r.Text = Currow("目的港")
   r.X = 2
   r.Y = 6
   r.Style.FontBold = True
   rt.Cells(2,3).Area.Children.Add(r)

   r = New prt.RenderText
   r.Text = "关单号"
   r.X = 2
   r.Y = 1
   rt.Cells(3,1).Area.Children.Add(r)

   r = New prt.RenderText
   r.Text = "件数"
   r.X = 2
   r.Y = 1
   rt.Cells(3,2).Area.Children.Add(r)

   r = New prt.RenderText
   r.Text = "毛重"
   r.X = 2
   r.Y = 1
   rt.Cells(3,3).Area.Children.Add(r)

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

   r = New prt.RenderText
   r.Text = "货名"
   r.X = 2
   r.Y = 1
   rt.Cells(3,5).Area.Children.Add(r)

r = New prt.RenderText
   r.Text = "唛头"
   r.X = 2
   r.Y = 1
   rt.Cells(3,6).Area.Children.Add(r)

   r = New prt.RenderText
   r.Text = Cur("关单号")
   r.X = 2
   r.Y = 2
   r.Style.FontBold = True
   rt.Cells(4,1).Area.Children.Add(r)

   r = New prt.RenderText
   r.Text =Cur("件数")
   r.X = 2
   r.Y = 2
   r.Style.FontBold = True
   rt.Cells(4,2).Area.Children.Add(r)

   r = New prt.RenderText
   r.Text = Cur("毛重")
   r.X = 2
   r.Y = 2
   r.Style.FontBold = True
   rt.Cells(4,3).Area.Children.Add(r)

   r = New prt.RenderText
   r.Text = Cur("体积")
   r.X = 2
   r.Y = 2
   r.Style.FontBold = True
   rt.Cells(4,4).Area.Children.Add(r)

   r = New prt.RenderText
   r.Text = Cur("货名")
   r.X = 2
   r.Y = 2
   r.Style.FontBold = True
   rt.Cells(4,5).Area.Children.Add(r)

r = New prt.RenderText
   r.Text = Cur("唛头")
   r.X = 2
   r.Y = 2
   r.Style.FontBold = True
   rt.Cells(4,6).Area.Children.Add(r)

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

   r = New prt.RenderText
   r.Text = Cur("车号")
   r.X = 2
   r.Y = 6
   r.Style.FontBold = True
   rt.Cells(8,1).Area.Children.Add(r)

   r = New prt.RenderText
   r.Text = "总件数"
   r.X = 2
   rt.Cells(8,2).Area.Children.Add(r)

   r = New prt.RenderText
   r.Text = Cur("总件数")
   r.X = 2
   r.Y = 6
   r.Style.FontBold = True
   rt.Cells(8,2).Area.Children.Add(r)

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

   r = New prt.RenderText
   r.Text = Cur("总毛重")
   r.X = 2
   r.Y = 6
   r.Style.FontBold = True
   rt.Cells(8,3).Area.Children.Add(r)

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

   r = New prt.RenderText
   r.Text = Cur("总体积")
   r.X = 2
   r.Y = 6
   r.Style.FontBold = True
   rt.Cells(8,4).Area.Children.Add(r)

   r = New prt.RenderText
   r.Text = "备注"
   r.X = 2
   rt.Cells(8,5).Area.Children.Add(r)

   r = New prt.RenderText
   r.Text = Cur("备注")
   r.X = 2
   r.Y = 6
   r.Style.FontBold = True
   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 = Cur("数据编号") & " " & CurRow("客户") & "装箱单"
Dim dr1 As DataRow=DataTables("连接地址").DataRows(0)
Dim bm As String = dr1("PDF保存位置")
doc.SavePDF(bm & p1 & ".pdf")
Dim Proc As New Process
Proc.File = (bm & p1 & ".pdf")
Proc.Start()

主题：PDF文件