Mencetak String / Teks

Kode ini akan menunjukkan bagaimana mencetak variabel berjenis string / teks maupun properti string dari suatu kontrol, semisal properti Text dari kontrol TextBox.

Printer.Print "string yang akan dicetak"
Printer.EndDoc

Anda juga dapat melakukan kustomisasi terhadap string yang akan dicetak, contohnya seperti berikut: Tambahkan satu kontrol CommonDialog(CancelError=True) dan satu CommandButton. Ketikkan kode dibawah ini di bagian  'Command1_Click'.

On Error GoTo Ero
Dim s As String
CommonDialog1.ShowPrinter

'pengaturan
Printer.Copies = CommonDialog1.Copies
Printer.Orientation = CommonDialog1.Orientation

'memberikan judul diatas kertas
s = "Judul Dokumen"
Printer.CurrentX = Printer.ScaleWidth / 2 - (Printer.TextWidth(s) / 2) 'posisi tengah
Printer.Print s

'tanggal
s = "Dicetak : " & Now
Printer.CurrentX = Printer.ScaleWidth - Printer.TextWidth(s) 'posisi kanan
Printer.Print s

'isi
Printer.CurrentX = 0 'mengembalikan ke posisi pinggir kiri
Printer.Print "Tuliskan isi dari dokumen"
Printer.Print "Tuliskan isi dari dokumen"

'halaman
s = "Halaman " & Printer.Page
Printer.CurrentX = Printer.ScaleWidth - Printer.TextWidth(s) 'posisi kanan
Printer.CurrentY = Printer.ScaleHeight - Printer.TextHeight(s) 'posisi bawah
Printer.Print s

Printer.NewPage 'membuat halamam baru
'isi
Printer.CurrentX = 0 'mengembalikan ke posisi pinggir kiri
Printer.Print "Tuliskan isi dari dokumen"
Printer.Print "Tuliskan isi dari dokumen"

'halaman
s = "Halaman " & Printer.Page
Printer.CurrentX = Printer.ScaleWidth - Printer.TextWidth(s) 'posisi kanan
Printer.CurrentY = Printer.ScaleHeight - Printer.TextHeight(s) 'posisi bawah
Printer.Print s

Printer.EndDoc 'mengakhiri dokumen (wajib)
Ero: