none
Visual Basic Form Yazdırma RRS feed

Yanıtlar

  • PrintForm ile yazdıramazsın. Belli bir bölümü grafik olarak okuyup imaj alarak yapabilirsin. Onu yazdırmak için de printdocument bileşenini kullanabilirsin.

    Örnek kod.

    Imports System.Drawing.Imaging  
     
    Public Class Form1  
     
      Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click  
        Dim bmpScreenshot As Bitmap = New Bitmap(Width, Height, PixelFormat.Format32bppArgb)  
        ' Create a graphics object from the bitmap  
        Dim gfxScreenshot As Graphics = Graphics.FromImage(bmpScreenshot)  
        ' Take a screenshot of the entire Form1  
        gfxScreenshot.CopyFromScreen(Me.Location.X, Me.Location.Y, 0, 0, Me.Size, CopyPixelOperation.SourceCopy)  
        ' Save the screenshot  
        bmpScreenshot.Save("D:\Form1.jpg", ImageFormat.Jpeg)  
      End Sub 
     
    End Class 

    9 Ocak 2014 Perşembe 22:09

Tüm Yanıtlar

  • visual basic'te powerpacks içinde printform diye bir bileşen var. Onu formuna ekle. printform1 gibi bir adı muhtemelen. Printform1.print() demen formun bordür kısmı hariç yazdırman için yeterli olur. En pratiği bu.
    9 Ocak 2014 Perşembe 20:31
  • Powerpacks bileşenini nerden ekleyecegim
    9 Ocak 2014 Perşembe 20:51
  • Toolbox üzerinde yoksa;

    http://msdn.microsoft.com/en-us/vstudio/bb735936.aspx

    Kurulumdan sonra, toolbox üzerinde sağ tıklayıp choose item diyerek, program files altında powerpack dizinini görürsün orada bir dll olur onu seçtiğinde kullanabileceğin kontroller gelir.

    9 Ocak 2014 Perşembe 21:44
  • teşekkürler şimdi form yazdırabiliyorum peki formda istediğim yeri yazdırabilirmiyim ?
    9 Ocak 2014 Perşembe 21:53
  • PrintForm ile yazdıramazsın. Belli bir bölümü grafik olarak okuyup imaj alarak yapabilirsin. Onu yazdırmak için de printdocument bileşenini kullanabilirsin.

    Örnek kod.

    Imports System.Drawing.Imaging  
     
    Public Class Form1  
     
      Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click  
        Dim bmpScreenshot As Bitmap = New Bitmap(Width, Height, PixelFormat.Format32bppArgb)  
        ' Create a graphics object from the bitmap  
        Dim gfxScreenshot As Graphics = Graphics.FromImage(bmpScreenshot)  
        ' Take a screenshot of the entire Form1  
        gfxScreenshot.CopyFromScreen(Me.Location.X, Me.Location.Y, 0, 0, Me.Size, CopyPixelOperation.SourceCopy)  
        ' Save the screenshot  
        bmpScreenshot.Save("D:\Form1.jpg", ImageFormat.Jpeg)  
      End Sub 
     
    End Class 

    9 Ocak 2014 Perşembe 22:09