michelle_chen 发表于 2014-6-25 15:17:00

vsPrinter8.0工具中文字顯示問題~急

使用產品vsPrinter8.0工具，截取部份程式碼如下
.AddTable "2300|2300|2300", "會計|行政|業務", "", RGB(200, 200, 250)

出來的結果表頭名稱無法正確顯示("會"顯示不出來)，跳換欄位，如下


- 計 行政


請問各位高手可有無解決方法?! 感激!!

iceman 发表于 2014-6-25 20:05:00

回复 1楼michelle_chen的帖子

抱歉，我根据你的描述无法重现问题，能否把你的测试demo发上来调试？

michelle_chen 发表于 2014-6-26 08:54:00

回复 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

iceman 发表于 2014-6-26 18:47:00

回复 3楼michelle_chen的帖子

抱歉，我没用重现你的问题，如果输入英文是否可以正常显示？

michelle_chen 发表于 2014-6-26 22:30:00

回复 4楼iceman的帖子

yes~英文顥示完全正常,不知道跟什麼還有關係?!
您的範例檔~我測試修改某一段文字
.AddTable &quot;2300|2300|2300&quot;, &quot;會計|with|rows&quot;, &quot;&quot;, RGB(200, 200, 250)

iceman 发表于 2014-6-27 10:51:00

回复 5楼michelle_chen的帖子

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

michelle_chen 发表于 2014-6-27 17:07:00

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

再麻煩了協助,謝謝!!

michelle_chen 发表于 2014-6-30 12:32:00

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

iceman 发表于 2014-6-30 14:32:00

回复 8楼michelle_chen的帖子

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

http://www.gcpowertools.com.cn//downloads/trial/StudioForActiveX/C1StudioActiveX64_2014v1.msi

看是否是Unicode编码问题。

michelle_chen 发表于 2014-7-1 14:34:00

回复 9楼iceman的帖子

iceman您好,
download安裝後，我試著使用net工具去使用元件,但出現登錄失敗,我還能怎麼測試?!
(不好意思,不懂的地方太多,一直麻煩您)
页: [1] 2 3
查看完整版本: vsPrinter8.0工具中文字顯示問題~急