kodlara bakın

ublic Class Form1
Inherits System.Windows.Forms.Form

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

Dim Font_ismi As String = "Tahoma"
Dim Font_boyu As Integer = 10

rtb1.Font = New Drawing.Font(Font_ismi, Font_boyu, Drawing.FontStyle.Regular)
end sub
Private Sub YazdırToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles YazdırToolStripMenuItem.Click
If PrintDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
pdoc1.Print()
End If
End Sub

Private Sub pdoc1_PrintPage(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs)
Dim satir_sayisi As Integer
Dim satir As String
Dim sayac As Integer
Dim yazdirilicak_satir As Object
Dim toplam_sayac As Integer
Dim sayfa As Integer
Dim sutun As String


'Sayfadaki toplam satir sayisi
satir_sayisi = e.MarginBounds.Height / rtb1.Font.GetHeight(e.Graphics)
'Baslangic Satiri
satir = e.MarginBounds.Top
'Baslangıc Sutunu
sutun = e.MarginBounds.Left
sayac = 0
For Each yazdirilicak_satir In rtb1.Lines
satir = e.MarginBounds.Top + rtb1.Font.GetHeight(e.Graphics) * sayac
e.Graphics.DrawString(yazdirilicak_satir, rtb1.Font, Brushes.Black, sutun, satir)
sayac = sayac + 1
If sayac >= satir_sayisi Then
Exit For

End If
Next
toplam_sayac = sayfa * satir_sayisi
If toplam_sayac >= rtb1.Lines.Length Then
e.HasMorePages = False
Else
sayfa = sayfa + 1
sayac = 0
e.HasMorePages = True

End If
End Sub

Private Sub BaskıToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BaskıToolStripMenuItem.Click
PrintPreviewDialog1.WindowState = FormWindowState.Maximized
PrintPreviewDialog1.ShowDialog()

End Sub

Private Sub SayfaToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SayfaToolStripMenuItem.Click
PageSetupDialog1.ShowDialog()

End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)

End Sub


End Class

[IMG]http://img157.**************/img157/3475/adadadht6.jpg[/IMG]


formun kendısıde yukarda bır form ona richtextbox koydum uzerine yazılar yazdım birde button koydum buton pirıntırda cıkarmı butonun resmi yani
nerde hatam var bilmiyorum ama baskı onizleme yaptıgımda sayfa bombos ve yazıcıdan sadece bos bir sayfa cıkıyor hatamı blulup duzeltirseniz cok sevinirim
__________________