Cara Mencetak Teks

9:19 PM

Untuk kesempatan kali ini saya akan men-share tentang bagaimana cara memprint teks langsung dari project vb. Baiklah langsung saja to the point ya gan :D

- Buat sebuah project baru
- lalu tambahkan 2 buah label, 2 buah text, dan 1 buah Command. Coba rancang seperti gambar dibawah

Print Teks

- Setelah rancangan form selesai, silahkan copy pastekan koding berikut

Private Sub Form_Load()
Text1 = "Judul"
Text2 = "Isi"
End Sub

Lalu pada tombol/command copy koding berikut

Private Sub Command1_Click()
If (Text1 = "") Or (Text2 = "") Then
    MsgBox "Isikan text judul dan juga isi"
Else
    Printer.PaperSize = vbPRPSA5 'ukuran kertas
    Printer.CurrentX = 0.5 * 1440 'koordinat text1
    Printer.CurrentY = 0.5 * 1 'koordinat text1
    Printer.Print Text1.Text
    Printer.CurrentX = 0 * 1440 'koordinat text2
    Printer.CurrentY = 1 * 440 'koordinat text2
    Printer.Print Text2.Text
    Printer.NewPage
    Printer.EndDoc
End If
End Sub

Silahkan kembangkan sesuai dengan program yang anda inginkan.. :D
Untuk ukuran kertas yang anda inginkan silahkan masuk pada artikel ini Ukuran Kertas untuk vb 6

Download project disini

0 comments:

Post a Comment

Mohon maaf apabila terdapat kesalahan penulisan ataupun kesalahan-kesalahan lainnya, maklum saya hanya manusia biasa yang mencoba terus belajar agar menjadi lebih baik. Silahkan tinggalkan komentar dan sarannya.