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

以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  PDF文件  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=39799)

--  作者：bm
--  发布时间：2013/9/2 9:37:00
--  PDF文件

生成的pdf文件里出现????????????????。

[此贴子已经被作者于2013-9-2 9:40:12编辑过]

--  作者：Bin
--  发布时间：2013/9/2 9:41:00
--
编码问题导致的吧,上个例子看看你是怎么生成的

--  作者：bm
--  发布时间：2013/9/2 9:55:00
--  pdf

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()

--  作者：bm
--  发布时间：2013/9/2 9:56:00
--
不光是这个，其他的也这样。

--  作者：Bin
--  发布时间：2013/9/2 9:57:00
--
你设置一下PDF文件的编码为UTF-8 或者GB2312 看看.

--  作者：bm
--  发布时间：2013/9/2 9:59:00
--  这个在哪里设置啊
这个在哪里设置啊

--  作者：bm
--  发布时间：2013/9/2 10:04:00
--
原来一直用的好好的。重新装了系统出现这个情况。

--  作者：Bin
--  发布时间：2013/9/2 10:10:00
--
看下是否这个问题 http://bbs.icpcw.com/thread-1781652-1-1.html

你百度一下PDF文件显示乱码看看吧

另外把你生成的PDF文件发上来我看看是否显示乱码.

--  作者：bm
--  发布时间：2013/9/2 12:16:00
--  高手帮忙
系统重新装后出现的情况原来好好的。
此主题相关图片如下：截图1378095265.png

--  作者：程兴刚
--  发布时间：2013/9/2 12:25:00
--

1、给您的操作系统安装大字符集，到系统更新里面去升级安装；

2、在报表中给您的报表指定文字格式，字体选用常用字体。