none
Yazı ortalama RRS feed

  • Soru

  •  Private Sub PrintDocument2_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument2.PrintPage
            Dim font3 As Font = New Font("Tahoma", 10, FontStyle.Regular)
    
            e.Graphics.DrawString("Deneme Text", font3, Brushes.Black, 55, 220)
    End Sub
    "Deneme Text" Yazısını sayfaya yatay olarak nasıl ortalıyabilirim
    5 Mart 2013 Salı 08:41

Yanıtlar

  •  Private Sub PrintDocument2_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument2.PrintPage
              Dim font3 As Font = New Font("Tahoma", 10, FontStyle.Regular)
           dim format as new stringformat
            format.alignment = center
            e.Graphics.DrawString("Deneme Text", font3, Brushes.Black, new rectanglef(0, 0, e.pagebounds.width, e.pagebounds.height), format) End Sub
    ...gibi.

    • Yanıt Olarak İşaretleyen Omur Can 5 Mart 2013 Salı 10:57
    5 Mart 2013 Salı 09:02
    Moderatör

Tüm Yanıtlar

  •  Private Sub PrintDocument2_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument2.PrintPage
              Dim font3 As Font = New Font("Tahoma", 10, FontStyle.Regular)
           dim format as new stringformat
            format.alignment = center
            e.Graphics.DrawString("Deneme Text", font3, Brushes.Black, new rectanglef(0, 0, e.pagebounds.width, e.pagebounds.height), format) End Sub
    ...gibi.

    • Yanıt Olarak İşaretleyen Omur Can 5 Mart 2013 Salı 10:57
    5 Mart 2013 Salı 09:02
    Moderatör
  •  Private Sub PrintDocument2_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument2.PrintPage
              Dim font3 As Font = New Font("Tahoma", 10, FontStyle.Regular)
           dim format as new stringformat
            format.alignment = center
            e.Graphics.DrawString("Deneme Text", font3, Brushes.Black, new rectanglef(0, 0, e.pagebounds.width, e.pagebounds.height), format) End Sub
    ...gibi.



    Dim format As New StringFormat
    format.Alignment = StringAlignment.Center

    Böyle tamamdır. Teşekkürler
    5 Mart 2013 Salı 10:57