C# KOD ÖRNEKLERİ: Yazıcıdan Metin yazdırma Örneği

Yazdırma Sayfa Ayarı

Yazdırmak için Seçilecek yazıcı

Çıktı almadan önce Önizleme sayfası

Yazıcı Foxit Phantom Printer ile alınan çıktı

KODLAR

Kodlara tıkla ve CTRL+C ile kopyala

Public Class Form1

Dim documentChanged As Boolean = False
    Dim filePath As String
    Dim fileName As String
    Public TxtOku As IO.StreamReader
    Public Yaz As IO.StreamWriter

Private Sub DsyAçBtn_Click(sender As System.Object, e As System.EventArgs) Handles DsyAçBtn.Click
        Dim openDLG As New OpenFileDialog
        openDLG.DefaultExt = "rtf"
        openDLG.Filter = "Özel Dosyalar|*.txt;*.rtf|Text Dosyası|*.txt|Rich Text Dosyası|*.rtf|Tüm Dosyalar|*.*"
        openDLG.InitialDirectory = Application.StartupPath 'programın kurulu olduğu dizini açar
        If openDLG.ShowDialog = Windows.Forms.DialogResult.OK Then
            'butonları aktif yap
            SayfaAyarBtn.Enabled = True
            ÖnzleBtn.Enabled = True
            YazdırBtn.Enabled = True

Dim uzanti As String
            uzanti = System.IO.Path.GetExtension(openDLG.FileName)
            uzanti = uzanti.ToUpper()

Select Case uzanti
                Case ".RTF"
                    RTB.LoadFile(openDLG.FileName, RichTextBoxStreamType.RichText)

Case ".TXT"
                    RTB.Clear()
                    TxtOku = New IO.StreamReader(openDLG.FileName, System.Text.Encoding.Default)
                    RTB.Text = TxtOku.ReadToEnd
                    TxtOku.Close()
                    TxtOku = Nothing
                    RTB.Focus()
                    RTB.SelectionStart = 0
                    RTB.SelectionLength = 0
                    RTB.Modified = False
                Case Else
                    Try
                        System.Diagnostics.Process.Start(openDLG.FileName)
                    Catch ex As Exception
                        MessageBox.Show(uzanti & " 'Uzantılı uygulama Bulunamadı.", "RTE - Hata", MessageBoxButtons.OK, MessageBoxIcon.Error)
                    End Try
                    Exit Sub
            End Select

Dim slash As Integer = openDLG.FileName.LastIndexOf("\")
            fileName = openDLG.FileName.Substring(slash + 1)

Me.Text = " DENEME- " & fileName

documentChanged = False
        End If
        documentChanged = False

End Sub
    Private Sub PrintDocument1_PrintPage(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
        Dim DokumanYazdır As New Printing.PrintDocument
        Dim font3 As Font = New Font("Arial", 10, FontStyle.Regular)
        Dim format As New StringFormat
        format.Alignment = StringAlignment.Near '.Center
        e.Graphics.DrawString(RTB.Text, font3, Brushes.Black, New RectangleF(0, 0, e.PageBounds.Width, e.PageBounds.Height), format)
    End Sub

Private Sub ÖnzleBtn_Click(sender As System.Object, e As System.EventArgs) Handles ÖnzleBtn.Click
        Dim ÖnizlemeDLG As New PrintPreviewDialog
        ÖnizlemeDLG.Document = PrintDocument1
        ÖnizlemeDLG.ShowDialog()

End Sub

Private Sub SayfaAyarBtn_Click(sender As System.Object, e As System.EventArgs) Handles SayfaAyarBtn.Click
        Dim SayfaAyarDLG As New PageSetupDialog

SayfaAyarDLG.Document = PrintDocument1
        SayfaAyarDLG.ShowDialog()

End Sub

Private Sub YazdırBtn_Click(sender As System.Object, e As System.EventArgs) Handles YazdırBtn.Click
        Dim YazdırDLG As New PrintDialog
        YazdırDLG.Document = PrintDocument1
        If YazdırDLG.ShowDialog() = Windows.Forms.DialogResult.OK Then
            PrintDocument1.Print()
        End If
    End Sub
End Class

Yazıcıdan CLAS.vb ile Çıktı alma Örneği

21 Mart 2013 Perşembe

Yazıcıdan Metin yazdırma Örneği