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

Program kodlarını indirmek için TIKLA

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 İNDİR

21 Mart 2013 Perşembe

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