Mencetak dengan Pengaturan Tata Letak Menggunakan Visual Basic 6.0

Salam sejahtera sahabat visual basic 6.0, seperti kita ketahui semuanya bagi kalangan pengguna komputer dalam mengoperasikan sebuah aplikasi sering kali kita menggunakan fasilitas pencetakan sebuah data yang pada umumnya telah ada disetiap aplikasi khususnya windows. Biasanya sebelum melakukan pencetakan sebuah data baik itu dokumen berupa gambar, tulisan tentunya data tersebut kita rapihkan terlebih dahulu seperti untuk sebuah tulisan menggunakan Rata kanan, rata kiri atau tengah.

Nahh...pada kesempatan kali ini admin akan berbagi sebuah source code ringan yaitu Mencetak dengan Pengaturan Tata Letak Menggunakan Visual Basic 6.0 dan langsung saja buka Ms. Visual Basic 6.0 - StandardEXE selanjutnya buatlah sebuah form dan tambahkan beberapa komponen pendukung seperti

1. 1 Buah CommandButton

2. 3 Buah OptionButton

3. 1 Buah Module (sebagai deklarasi function)

Seperti tampilan gambar di bawah ini

Copykan syntak di bawah ini ke 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

Selanjutnya double klik pada commandbutton dan copykan syntak dibawah ini

Dim nTulisan As String

nTulisan = "GUDANG SOURCODE VISUAL BASIC 6.0"

   If Option1.Value = True Then: Call PrintAlignedText(nTulisan, "Left")

   If Option2.Value = True Then: Call PrintAlignedText(nTulisan, "Center")

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

Bila dirasa semuanya telah selesai jangan lupa save kemudian RUN/F5, pilih salah satu OptionButton kemudian klik CommandButton. Jika PC agan terhubung dengan sebuah printer maka printer tersebut akan mencetak sebuah tulisan dengan tata letak sesuai yang agan pilih seperti gambar di bawah ini

Untuk lebih jelasnya agan-agan bisa langsung download source code ini pada link download yang telah admin sediakan di akhir pembahasan ini. Terima kasih atas kunjungannya.

Link Download Source Code Mencetak dengan Pengaturan Tata Letak Menggunakan Visual Basic 6.0