winform 接收參數後截圖再列印再關閉- 藍色小舖 BlueShop

台灣最大程式設計社群網站

∣免費加入會員∣登入 ∣回首頁∣ 您好

線上人數
650

會員總數：243856
討論主題：188345

登入

登出

歡迎您免費加入會員

討論區選單

開發工具

行動裝置開發

資料庫

多媒體 / 網管

綜合

文章區

討論區列表 >> VB.NET >> winform 接收參數後截圖再列印再關閉

[]

[我要回覆]

winform 接收參數後截圖再列印再關閉
價值 : 100 QP 點閱數:234 回應數:1

樓主

MStone Lin

0	68
1468	97

發送站內信

請問
winform 接收參數後
將內容顯示在form後
再截圖
再列印
再關閉

可是都變成先截圖後再顯示再關閉
請問要如何修改呢
謝謝

Public Class Form1
    Inherits Form
    
    Private WithEvents printDocument1 As New PrintDocument
    Dim memoryImage As Bitmap

Private Sub Form1_show(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Me.CenterToScreen() '置中
        ' Me.ControlBox = False   '不顯示XX

Dim s() As String
        s = Environment.GetCommandLineArgs

If s.Length > 1 Then
            Label5.Text = s(1)
        End If

'Dim barcode As String = Label5.Text
        Dim barcode As String = "1234567,251365,601-1,A,張大三,+,1,00811,00812"
     
        Dim MA As String() = barcode.Split(",")
        Label2.Text = MA(0) 
        Label4.Text = MA(1) 
        Label10.Text = MA(2) 
        Label17.Text = MA(3) 
        Label20.Text = MA(4) 
        Label21.Text = MA(5) 
        Label22.Text = MA(6)
        Label26.Text = getname(MA(7))  
        Label27.Text = getname(MA(8))

printDocument1.PrinterSettings.PrinterName = "TSC244" ' 設定應用程式輸出印表機
      
        CaptureScreen()
      
      '我先將畫面存檔, 若 OK 再改回 printDocument1.Print()
      'printDocument1.Print()            
        memoryImage.Save("D:\ttt.bmp")
     
   '  Application.Exit()
    End Sub

Private Sub CaptureScreen()
        printButton.Visible = False
        clo.Visible = False
        Dim myGraphics As Graphics = Me.CreateGraphics()
        Dim s As Size = Me.Size
        memoryImage = New Bitmap(s.Width, s.Height, myGraphics)
        Dim memoryGraphics As Graphics = Graphics.FromImage(memoryImage)
        Application.DoEvents()
        memoryGraphics.CopyFromScreen(Me.Location.X, Me.Location.Y, 0, 0, s)
    End Sub

Private Sub printDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles printDocument1.PrintPage
        e.Graphics.DrawImage(memoryImage, 0, 0)
    End Sub

搜尋相關Tags的文章： [ winform ] , [ 參數 ] , [ 截圖 ] , [ 列印 ] , [ 關閉 ] ,
本篇文章發表於2018-05-30 14:45


別忘捐VP感謝幫助你的人	新手會員瞧一瞧

1樓

作者回應

MStone Lin

又自問自答

先me.show()即可

本篇文章回覆於2018-05-30 14:56

== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--

回覆

如要回應,請先登入.