Skip to main content

AccessTr.neT


Numaratör

drummers
drummers
1
2280

Numaratör

#1
Muhasebeci arkadaşlarım için ücretsiz bir program yapmak için fikir, öneri ve örnek kod rica ediyorum.

Textbox1 = ilk sayfa .... 1

Textbox2= son sayfa .... 10

Button1= Basılınca A4 kağıdının sağ üst köşesine 1 den 10 kadar rakam yazacak.

Teşekürler...
drummers, 11-05-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
#2

Imports System.Drawing.Printing
Public Class Form1
Dim i As Integer = 0
Private Sub PrintDocument_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs)

Dim ilksayi As Integer = CInt(TextBox1.Text)
Dim sonsayi As Integer = CInt(TextBox2.Text)
Dim fark As Integer = sonsayi - ilksayi
While i < fark + 1
e.Graphics.DrawString((i + ilksayi).ToString, New Font("Arial", 14, FontStyle.Bold), Brushes.Black, e.PageSettings.PaperSize.Width - 73, 20)
i = i + 1
Exit While
End While
If i < fark + 1 Then e.HasMorePages = True Else e.HasMorePages = False : i = 0
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
MsgBox("www.accesstr.net için hazırlanmıştır")
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim ilksayi As Integer = CInt(TextBox1.Text)
Dim sonsayi As Integer = CInt(TextBox2.Text)

If CInt(TextBox1.Text) <= "0" Then
MsgBox("İlk Sayfa Numaralasını Girmediniz")
ElseIf CInt(TextBox2.Text) <= "0" Then
MsgBox("Son Sayfa Numaralasını Girmediniz")

ElseIf CInt(TextBox2.Text) < CInt(TextBox1.Text) Then
MsgBox("Son Sayfa İlk Sayfadan Küçük Olamaz")
Else
Dim pd As New System.Drawing.Printing.PrintDocument
AddHandler pd.PrintPage, AddressOf PrintDocument_PrintPage
pd.Print()
Me.Close()
End If
End Sub
End Class

Örnek dosya ektedir
.rar Sayfa Numaralama.rar (Dosya Boyutu: 161,17 KB | İndirme Sayısı: 16)
drummers, 11-05-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da