Print Form

Design Form

Melanjutkan postingan saya yang kemarin, yaitu tentang cetak teks tanpa menggunakan report maka kali ini saya akan memposting sebuah program sederhana tentang print form.

Ok langsung saja

-         Buat sebuah project baru dengan design form seperti gambar diatas

-         Tambahkan 2 buah timer dengan properties interval masing” 200

-         Lalu kopi pastekan kode berikut

'semoga bermanfaat http://tipstugaskita.blogspot.com 'created by : adhyparker 'print seluruh bagian form Private Sub Command1_Click() Form1.PrintForm End Sub 'print tanpa tombol Private Sub Command2_Click() 'menghilangkan tombol Command1.Visible = False Command2.Visible = False 'mengaktifkan timer Timer1.Enabled = True End Sub 'menonaktifkan timer pada saat running form load Private Sub Form_Load() Timer1.Enabled = False Timer2.Enabled = False End Sub Private Sub Timer1_Timer() 'pada saat timer1 aktif maka print form Form1.PrintForm 'mengaktifkan timer2 dan menonaktifkan timer1 Timer2.Enabled = True Timer1.Enabled = False End Sub Private Sub Timer2_Timer() 'menunculkan kembali tombol Command1.Visible = True Command2.Visible = True 'menonaktifkan timer2 Timer2.Enabled = False End Sub 'semoga bermanfaat http://tipstugaskita.blogspot.com

Disini saya memberikan trik untuk mencetak form secara keseluruhan, ataupun ada beberapa komponen yang tidak ingin ikut tercetak. Anda bisa bereksperimen sesuka anda.

Berikut saya sertakan contoh program yang saya buat

Download Print Form