MENCETAK SELURUH DOKUMEN YANG TERBUKA

MENCETAK SELURUH DOKUMEN YANG TERBUKA

Pertama-tama buka Microsoft Word. Selanjutnya, buka Tool Visual Basic Editor dari menu Tools | Macro | Visual Basic Editor. Setelah itu dalam jendela utama VBE, buat modul baru melalui Insert | Module. Salin list makro ke dalam modul tersebut. Jika sudah jalankan perintah Debug | Compile Project. Setelah selesai mengcompile makro tersebut, tutup VBE untuk kembali ke lembar kerja Microsoft Word.

Untuk memudahkan dalam mengakses makro tersebut, harus mengintegrasikan makro ke dalam Microsoft Word. Caranya klik Tools | Macro | Macros. Klik pilihan Printalldocument lalu tekan Organizer. Dalam jendela Organizer, aktifkan tab Macro Project Items. Copy Module1 yang ada disebelah kiri ke dalam Normal.Dot di bagian kanan lalu klik Close. Sampai sini, makro sudah terintegrasi dengan baik pada Microsoft Word.

Sekarang, tinggal membuat tombol shortcutnya yang bisa diletakkan di area toolbar atau menubar. Caranya, klik Tools | Customize lalu aktifkan tab commands. Cari Macros di bagian Categories lalu drag pilihan Normal.Module1.Printalldocuments ke area toolbar atau menubar yang masih kosong. Jika sudah, klik kanan tombol shortcut baru tersebut dan ganti namanya sesuai keinginan dalam bagian Name. Pilih icon yang disenangi dari Change Button Images. Jika semua langkah di atas sudah dilakukan, tutup Customize.

Sekarang tombol shortcut tersebut sudah bisa digunakan.

Sub PrintAllDocuments()

                        Step through the open document windows

            For Each Doc In Documents

                        Doc.PrintOut

Next Doc

End Sub