Numaratör
Tarih
16/11/2012 15:36
Konu Sahibi
drummers
Yorumlar
1
Okunma
1277
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



drummers
Omur Can
Kullanici Avatari
Destek
O.... C....
398
11/05/2009
125
İzmir
Ofis 2003
29/11/2016,13:56
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


drummers
Omur Can
Kullanici Avatari
Destek
O.... C....
398
11/05/2009
125
İzmir
Ofis 2003
29/11/2016,13:56

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
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



Ek Dosyalar
.rar   Sayfa Numaralama.rar (Dosya Boyutu: 161,17 KB / İndirme Sayısı: 15)
drummers, 11-05-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla







Konuyu Okuyanlar: 1 Ziyaretçi



Türkçe Çeviri: MCTR, Forum Yazılımı: MyBB, © 2002-2016 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya