Cara Mencetak dan Perataan Tata Letak Teks Menggunakan Form Visual Basic 6.0

Dalam artikel kali ini saya akan memberikan sebuah trik bagaimana Cara Mencetak dan Perataan Tata Letak Teks Menggunakan Visual Basic 6.0.

Cara ini hampir sama yang kita lakukan pada microsoft word dimana saat kita mengetik sebuah kalimat kemudian kita ingin memberikan format perataan, missal rata kiri, rata tengah dan rata kanan, dengan hanya menekan sebuah tombol perintah yang ada di word dan hasilnya mumgkin anda mau cetak di printer.

Namun pada artikel kali ini saya akun membuat sebuah kalimat yang akan saya ketik disebuah Textbox yang saya telah tambahkan dalam sebuah form yang befungsi untuk menampung kalimat atau kata.

Kemudian saya berikan beberapa Option Button untuk sebuah pilihan, apakah mau dicetak rata kiri, rata tengah atau rata kanan.

Selain itu Saya juga tambahkan sebuah CommandButton dengan Caption “Cetak”.

Ketika program ini dijalankan isilah sebuah kalimat atau kata dan pilih tata letak perataannya dengan cara mengklik pilihan OptionButton. Jika sudah yakin dengan pilihan perataan tekan tombol CETAK, maka secara otomatis akan mencetak ke printer yang sudah terpasang.

Lalu bagaimana jika tidak ada printer yang terpasang maka komputer akan otomatis meminta letak penyimpanan dan menuliskan nama filenya kemudian akan tercetak dilayar di aplikasi XPS VIEWER.

Bagi anda yang penasaran bagaimana cara kerjanya silahkan lansung saja buat dengan menggunakan Form VB6

Mencetak dengan PerataanTata Letak Teks Menggunakan VB6

• Buka form VB6 Anda Standar EXE
• Tambahkan 3 OptionButton, 1TextBox dan 1 CommandButton
• Jangan lupa tambahkan 1 buah Modul

Untuk lebih jelasnya desainlah seperti gambar dibawah ini :

Form Desain

Jika telah menyelesaikan langkah-langkah diatas sekarang copy kode dibawah ini dan letakan didalam Module

Public Sub PrintAlignedText(S As String, Alignment As String)

   Printer.FontSize = 14

    Printer.FontBold = True

    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

  Printer.EndDoc

End Sub

Kembali ke form dan tambahkan kode berikut di CommandButton1

Private Sub Command1_Click()

Dim nTulisan As String

Dim nTulisan2 As String

nTulisan = Text1.Text

   If Option1.Value = True Then

   Call PrintAlignedText(nTulisan, "Left")

   ElseIf Option2.Value = True Then

   Call PrintAlignedText(nTulisan, "Center")

   Else

   If Option3.Value = True Then: Call PrintAlignedText(nTulisan, "Right")

 End If

 

Untuk menyempurnakan hasil dari program ini tambahkan kode dibawah ini :

Private Sub Form_Activate()

Text1.SetFocus

Option1.SetFocus

End Sub

Private Sub Form_Load()

Text1.Text = "Ketik teks disini"

End Sub

Simpan hasil pekerjaan Anda dan coba jalankan. Jika berhasil kurang lebih tampilannya seperti dibawah ini:

Output Form

Demikian artikel dari saya tentang Cara Mencetak dan Perataan Teks Menggunakan Form Visual Basic 6.0.Semoga artikel ini bermanfaat buat kita semua

Related Post: Uncategories