Cara Print Text String Dengan Alignment Left/Center/Right VB6

Berikut ini adalah cara untuk menge-print text atau string dengan pengaturan alignment di visual basic 6, untuk mempraktekannya siapkan :

1. Buat 1 Project Baru dengan 1 Form, 1 Commandbutton.
2. Copy-kan coding berikut ke dalam editor form yang bertalian.

          Public Sub PrintAlignedText(s As String, Alignment As String)
              Select Case Alignment

              Case "Center"
                  Printer.CurrentX = (Printer.ScaleWidth - Printer.TextWidth(s)) \ 2
              Case "Left"
                  Printer.CurrentX = 0

              Case "Right"
                  Printer.CurrentX = Printer.ScaleWidth - Printer.TextWidth(s)
              End Select
              Printer.Print s

              'Gunakan perintah EndDoc jika text ini adalah yang terakhir yang ingin
              'Anda cetak ke dalam kertas...
              Printer.EndDoc
          End Sub

          Private Sub Command1_Click()
             'Ganti tulisan "Masino Sinaga" dengan teks yang akan Anda cetak.
             'Ganti kata "Center" dengan alignment yang Anda inginkan
             '("Center", "Left" or "Right")

             Call PrintAlignedText("Masino Sinaga", "Center")
          End Sub

Tags:

contoh program vb6, contoh fungsi di vb6, cara penggunaan fungsi vb, tutorial vb6, download tutorial vb6, vb6 tutorial download, dasar dasar vb6, belajar vb6, cara mudah belajar vb6, vb6 artikel download, vb6 blog, contoh program vb6, artikel vb6, semua tentang vb6, vb6 api, cara menggunakan module, cara menggunakan class module