台灣最大程式設計社群網站
線上人數
1671
 
會員總數:241132
討論主題:186803
歡迎您免費加入會員
討論區列表 >> C# >> 如何把VB6 有關Printer的程式碼,轉換成用C#??
[ 變換順序 ]  
[我要回覆]
1
回應主題 加入我的關注話題 檢舉此篇討論 將提問者加入個人黑名單
如何把VB6 有關Printer的程式碼,轉換成用C#??
價值 : 50 QP  點閱數:215 回應數:2

樓主

芋頭
門外漢
0 2
18 3
發送站內信

請教一下各位
我有以下的VB6程式碼,主要要打印標籤用,如果要轉成C#,是否有可以對應的程式碼?
我google了一下,摸不著頭緒怎麼轉換
----------------------------------------------------------
Dim X As Printer
Dim PrtWidth As Single

For Each X In Printers
'尋找是否有該名稱的印表機
If X.DeviceName = PrinterName Then
Set Printer = X
Exit For
End If
Next

Printer.Print
Printer.ScaleMode = vbMillimeters
Barcod1.PrinterScaleMode = Printer.ScaleMode
PrtWidth = Printer.ScaleWidth

'列印條碼資料
With Printer
For j = 0 To DataNum
i = SetFont(Printer, "Arial", True, Val(wordSize))
x1 = wordLeft - .TextWidth(RollData(j))
y1 = wordTop + wordInterval * j
.CurrentX = x1
.CurrentY = y1
Printer.Print RollData(j)
Next
End With

'指定條碼的種類
Barcod1.Style = Val(3) '3of9 code
'將strtmp的值傳入barcod1.caption即可列印出該字串的條碼
Barcod1.Caption = strTmp

TMP = strTmp
strTmp = ""
strTmp = "*" & strTmp
For j = 1 To Len(TMP)
strTmp = strTmp & " " & Mid(TMP, j, 1)
Next
strTmp = strTmp & " *"

'列印條碼圖
With Barcod1
.PrinterLeft = Val(barcodeLeft)
.PrinterTop = Val(barcodeTop)
.PrinterWidth = Val(barcodeWidth)
.PrinterHeight = Val(barcodeHeight)
.PrinterHDC = Printer.hDC
End With
'列印條碼文字
With Printer
i = SetFont(Printer, "Arial", True, Val(barcodeSize))
x1 = (Barcod1.PrinterWidth - .TextWidth(strTmp)) / 2 + Barcod1.PrinterLeft
y1 = Barcod1.PrinterTop + Barcod1.PrinterHeight
.CurrentX = x1
.CurrentY = y1
Printer.Print strTmp
End With

Printer.EndDoc
-----------------------------------------------





搜尋相關Tags的文章: [ Printer ] , [ vb6 ] , [ c# ] , [ barcode ] ,
本篇文章發表於2017-09-08 18:52
別忘捐VP感謝幫助你的人 新手會員瞧一瞧
1樓
回應

James Cheng
檢舉此回應
建議你可以去印表機的官網或機台的供應商的網站上去找
應該會有可以下載的
我自己也有找過
官網中可以找到C# VB ....等等的
寫好的程式碼跟DLL檔都有
你只要照著寫好的函式輸入參數就好
當然也可以修改增加你自己要的功能
上網google一下就可以找到相關的文件手冊
本篇文章回覆於2017-09-13 09:51
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
2樓
回應

陳威瑄
檢舉此回應
可以用這個網站試看看
http://converter.telerik.com/
C#跟VB可以互轉
我以前測試過迴圈.型態轉型這些基礎語法都能正常轉換
本篇文章回覆於2017-09-13 10:14
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
[ 變換順序 ]   
1

回覆
如要回應,請先登入.