Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
30/08/2018 12:24
Konu Sahibi
drummers
Yorumlar
1
Okunma
296
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
drummers

drummers

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

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Kart_Click(sender As Object, e As EventArgs) Handles Kart.Click
        Me.TopMost = False
        Dim Yazi As New PrintDocument
        Dim Dokuman As New PrintPreviewDialog
        AddHandler Yazi.PrintPage, AddressOf Liste_Yazdir
        Dokuman.Document = Yazi
        Dokuman.WindowState = FormWindowState.Maximized
        Dokuman.PrintPreviewControl.Zoom = 1.5

        Dim Sonuc As DialogResult = Dokuman.ShowDialog()
        If (Sonuc = DialogResult.Cancel) Then
            Me.TopMost = True
        End If
    End Sub

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
38
39
40
41
42
43
Private Sub Liste_Yazdir(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs)
        Dim Ortala As New StringFormat
        Ortala.Alignment = StringAlignment.Center 'ortala


        Dim sonsatir As Integer = 0
        Static startAt As Integer = 0

        Try

            e.Graphics.DrawString("Firma Kartı", FontN12, Brushes.Black, New RectangleF(25, 50, 730, 40), Ortala)

            For i As Integer = startAt To Kira_DataGridView.RowCount - 1

                e.Graphics.DrawString("Firma Kira Dosya Bilgileri", FontN12, Brushes.Black, New RectangleF(25, 300, 730, 20), Ortala)

                e.Graphics.DrawRectangle(Pens.LightGray, New Rectangle(30, 330, 50, 15))
                e.Graphics.DrawString("Durum", FontN7, Brushes.Black, New RectangleF(30, 332, 50, 15), Ortala)
                e.Graphics.DrawRectangle(Pens.LightGray, New Rectangle(30, 345 + (i - startAt) * 15, 50, 15))
                e.Graphics.DrawString(IIf(IsDBNull(Kira_DataGridView.Rows(i).Cells(3).Value), "", Kira_DataGridView.Rows(i).Cells(3).Value), FontN7, Brushes.Black, New RectangleF(30, 347 + (i - startAt) * 15, 50, 15), Ortala) 'tarih



                sonsatir = i + 1

                If (i + 1) Mod 50 = 0 Then '50 satırda diğer sayfaya geçer 
                    e.HasMorePages = True
                    startAt = i + 1
                    Return
                End If
            Next



            e.HasMorePages = False
            startAt = 0
            sonsatir = 0

        Catch ex As Exception

        End Try

    End Sub

Bu şekilde Kira_DataGridView nesnesindeki verileri yazdırabiliyorum.
Benim istediğim 2. bir DataGridView nesnesindeki verileri Kira_DataGridView verileninin en son satırından sonra listelemesi

Örnek: Kira_DataGridView verileri
Ali
Hasan
2.DataGridView verileri
Mahmut
Süleyman

Sonuç Şöyle Olmalı...
Ali
Hasan
Mahmut
Süleyman

Yukarıdaki kodu nasıl düzenlemeliyim. Teşekkürler



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

C*e*l*o*y*c*e

C*e*l*o*y*c*e

Uzman
7
Me.... B.....
 72
 3.217
 29/10/2008
988
 Ankara
 Yazılım
 Ofis 2010 32 Bit
 Bugün,20:40
sayın drumers
2 ayrı tablodaki verileri bir sorguda birleştirip datagrite yazdırmayı deneseniz olurmu acaba denediniz mi ?



...........

Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  Visualbasic Sitedeki İdsiz Textbox'a Yazı Yazdırma Uptadex 1 153 30/06/2019, 20:50
Son Yorum: Uptadex
  Datagridview Listesini Yazdırma Mehmet Paçal 0 408 16/07/2018, 10:05
Son Yorum: Mehmet Paçal
  Vb.net Datagridview Mükerrerleri Teke Düşürme. feraz 5 1.006 03/05/2017, 20:45
Son Yorum: feraz
  VB.NET Button İle İstenilen Excel Belgesini Yazdırma (Printer İle) Mettless Dizayn 1 1.025 22/11/2016, 16:30
Son Yorum: alpeki99
  .Net Datagridview bluewanted 0 677 27/06/2016, 15:59
Son Yorum: bluewanted

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