返回列表 上一主題 發帖

[發問] VB.NET 印表機設定問題

司徒

帖子
1 
主題
1 
精華
0 
積分
2 
點名
0  
作業系統
windows10 
軟體版本
vb.net 
閱讀權限
10 
註冊時間
2022-8-27 
最後登錄
2023-12-5 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2022-8-27 15:27 | 只看該作者

[發問] VB.NET 印表機設定問題

  1. Public Class myPrinter
  2.    Friend TextToBePrinted As String
  3.    Public Sub prt(ByVal text As String)
  4.       TextToBePrinted = text
  5.       Dim prn As New Printing.PrintDocument
  6.       Using (prn)
  7.          prn.PrinterSettings.PrinterName = "PrinterName"
  8.          AddHandler prn.PrintPage,
  9.             AddressOf Me.PrintPageHandler
  10.          prn.Print()
  11.          RemoveHandler prn.PrintPage,
  12.             AddressOf Me.PrintPageHandler
  13.       End Using
  14.    End Sub
  15.    Private Sub PrintPageHandler(ByVal sender As Object, ByVal args As Printing.PrintPageEventArgs)
  16.       Dim myFont As New Font("Microsoft San Serif", 10)
  17.          args.Graphics.DrawString(TextToBePrinted, New Font(myFont, FontStyle.Regular), Brushes.Black, 50, 50)
  18.    End Sub
  19. End Class
複製代碼
想請問我應該如何才能把
prn.PrinterSettings.PrinterName = "PrinterName"
改成
prn.PrinterSettings.PrinterName = TextBox1.Text
常試了改但都是錯誤未宣告?
收藏 分享

mark15jill
　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生Rank: 3Rank: 3

帖子
852 
主題
79 
精華
0 
積分
918 
點名
0  
作業系統
Windows 7 , XP 
軟體版本
Office 2007, Office 2003,Office 2010,YoZo Office 
閱讀權限
50 
性別
男 
來自
宇宙 
註冊時間
2011-4-8 
最後登錄
2024-2-21 
2#
發表於 2022-11-27 10:52 | 只看該作者
回復 1# 司徒


    試試先把textbox1.text 宣告成string 看看

  多做多想多學習，少看少錯少迷途

  多做=多多練習，多多編寫。
  多想=想想為什麼人家程式要那樣寫，如果換成自己，又會怎寫。
  多學習=學習人家的發問並解答，學習人家的寫法

  少看=只看不做也枉然

TOP

        靜思自在 : 原諒別人就是善待自己。
返回列表 上一主題