vsPrinter8.0工具中文字顯示問題~急
使用產品vsPrinter8.0工具,截取部份程式碼如下.AddTable "2300|2300|2300", "會計|行政|業務", "", RGB(200, 200, 250)
出來的結果表頭名稱無法正確顯示("會"顯示不出來),跳換欄位,如下
- 計 行政
請問各位高手可有無解決方法?! 感激!! 回复 1楼michelle_chen的帖子
抱歉,我根据你的描述无法重现问题,能否把你的测试demo发上来调试? 回复 2楼iceman的帖子
您好,
因在測試新工具繁體中文是否可以完全正常顯示,但結果如我PO的表格一樣,"會"字顯示不出來且跳欄位囷擾,再麻煩,謝謝!!
Sample Code 如下:
With vp
.StartDoc
' show intro
.Paragraph = "VSPrinter has more powerful tables than previous versions. " & vbCrLf & _
"New features include breaking rows across pages, vertical text " & _
"in cells, row spanning, customizable borders, and better events " & _
"to allow custom painting." & vbCrLf & vbCrLf
' set page and table borders
.PageBorder = pbAll
.TableBorder = Val(cmbBorders)
.TablePenLR = 40
.TablePenTB = 40
' build table with 10 rows
.StartTable
.AddTable "2300|2300|2300", "會計|行政|業務", "", RGB(200, 200, 250)
.TableCell(tcRows) = 10
' center align all cells
.TableCell(tcAlign) = taCenterMiddle
' add text to all cells
Dim row%, col%
For row = 1 To 10
For col = 1 To 3
If (row + col) Mod 7 <> 0 Then
.TableCell(tcText, row, col) = " Row " & row & " Col " & col & " "
Else
' make a few cells have longer text, bold with a background
.TableCell(tcText, row, col) = sLong
.TableCell(tcBackColor, row, col) = RGB(100, 250, 100)
.TableCell(tcFontBold, row, col) = True
End If
Next
Next
' keep rows together
.TableCell(tcRowKeepTogether) = chkKeepTogether.Value
' apply vertical text to first row
If chkVerticalText.Value Then
.TableCell(tcVertical, 1, 1, 1, 3) = True
End If
' apply colspan
If chkColSpan.Value Then
.TableCell(tcColSpan, 1, 1) = 2
.TableCell(tcBackColor, 1, 1) = RGB(250, 100, 100)
End If
' apply rowspan
If chkRowSpan.Value Then
.TableCell(tcRowSpan, 6, 1) = 2
.TableCell(tcRowSpan, 3, 2) = 2
.TableCell(tcBackColor, 3, 2) = RGB(250, 100, 100)
End If
' apply custom borders
If chkCustomBorders.Value Then
.TableCell(tcRowBorderAbove, 2) = 80
.TableCell(tcRowBorderBelow, 2) = 80
.TableCell(tcRowBorderColor, 2) = RGB(0, 0, 100)
.TableCell(tcColBorderLeft, , 2) = 40
.TableCell(tcColBorderRight, , 2) = 40
.TableCell(tcColBorderColor, , 2) = RGB(0, 100, 0)
End If
.EndTable
.EndDoc
End With 回复 3楼michelle_chen的帖子
抱歉,我没用重现你的问题,如果输入英文是否可以正常显示?
回复 4楼iceman的帖子
yes~英文顥示完全正常,不知道跟什麼還有關係?!
您的範例檔~我測試修改某一段文字
.AddTable "2300|2300|2300", "會計|with|rows", "", RGB(200, 200, 250) 回复 5楼michelle_chen的帖子
请把测试机器信息发送给我,我需要模拟搭建环境重现你的问题。 測試機的資訊: OS: Windows 7 專業版 64位元 SP1,
使用的語系:繁體中文
系統地區設定:中文(繁體,台灣)
再麻煩了協助,謝謝!! 有解嗎..........?! 回复 8楼michelle_chen的帖子
我正在准备测试环境,在此期间你可以尝试安装 Studio for ActiveX 64位板块测试:
http://www.gcpowertools.com.cn//downloads/trial/StudioForActiveX/C1StudioActiveX64_2014v1.msi
看是否是Unicode编码问题。 回复 9楼iceman的帖子
iceman您好,
download安裝後,我試著使用net工具去使用元件,但出現登錄失敗,我還能怎麼測試?!
(不好意思,不懂的地方太多,一直麻煩您)