Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
16/11/2012 15:36
Konu Sahibi
drummers
Yorumlar
1
Okunma
1600
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy

drummers

Destek
6533
Om.... Ca....
 120
 414
 11/05/2009
125
 İzmir
 
 Ofis 2003
 07/05/2019,12:47
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.

drummers

Destek
6533
Om.... Ca....
 120
 414
 11/05/2009
125
 İzmir
 
 Ofis 2003
 07/05/2019,12:47

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


drummers, 11-05-2009 tarihinden beri AccessTr.neT üyesidir.


Konuyu Okuyanlar: 1 Ziyaretçi

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2019 MyBB Group.