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 " &amp; row &amp; " Col " &amp; col &amp; " "
                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 &quot;2300|2300|2300&quot;, &quot;會計|with|rows&quot;, &quot;&quot;, RGB(200, 200, 250)

回复 5楼michelle_chen的帖子

请把测试机器信息发送给我，我需要模拟搭建环境重现你的问题。

測試機的資訊: OS: Windows 7 專業版 64位元 SP1,
使用的語系:繁體中文
系統地區設定:中文(繁體,台灣)

再麻煩了協助,謝謝!!

有解嗎..........?!

回复 8楼michelle_chen的帖子

我正在准备测试环境，在此期间你可以尝试安装 Studio for ActiveX 64位板块测试：

http://www.gcpowertools.com.cn// ... ctiveX64_2014v1.msi

看是否是Unicode编码问题。

回复 9楼iceman的帖子

iceman您好,
download安裝後，我試著使用net工具去使用元件,但出現登錄失敗,我還能怎麼測試?!
(不好意思,不懂的地方太多,一直麻煩您)