Re: ]] XL-mania [[ login nge - print pada excel

 



asumsinya: yg dicetak hanya workbook (file *.xls)

 

kita buat sebuah userform (UserForm1) berisi

1 textbox

1 commandbutton

siapkan variable boolean bernama PassCocok

siapkan variable atau konstata string berisi password diberinama Pass

atur agar keduanya berlingkup public yg berlaku di semua module

 

pada module thisworkbook

pada event Workbook_BeforePrint

kita beri instruksi 

UserForm1.show

Cancel = Not PassCocok

 

pada module userform:

pada event CommandButton_Click

diisi  instruksi

PassCocok = (TextBox1 = Pass)

Unload.Me

 

ketika userform selesai menunaikan tugas dan ditutup,

( saat itu variable PassCocok sudah berisi False / True, sesuai

cocok tidaknya input di textbox dengan password yg sudah disiapkan)

kendali program kembali ke prosedur event workbook_beforePrint

dan disitu masih ada satu instruksi yaitu

Cancel = NotPassCcocok

 

artinya jika Password cocok, argument Cancel diisi FALSE

dan jika Password tidak cocok, argument Cancel diisi TRUE

 

Cancel adalah argument pada prosedur event workbook_beforePrint

jika diisi True menyebabkan pencetakan dibatalkan

jika diisi False pencetakan dilaksanakan.

 

Semua prosedur itu hanya akan jalan kalau user memberi perintah cetak

kepada excel;

 

Tetapi rekayasa ini hanya akan berlaku di workbook yg memuat procedures tsb.

Untuk memberlakukan ke semua workbook, tentu ada hal lain yg perlu disiapkan

agar lingkup berlakunya bukan hanya di level workbook tetapi menjadi level aplikasi

antara lain perlu membuat sebuah Class baru.

 

Workbook terlampir sudah disiapkan spt itu dan siap untuk di save as Add-In (*.xla)

 

note:

pass = "ctvprint"

 

---

----- Original Message -----

From: afryan zori

To: XL-mania@yahoogroups.com

Sent: Friday, March 12, 2010 7:12 AM

Subject: ]] XL-mania [[ login nge - print pada excel

 

Para pesuhu excel,
saya maw tanya dan minta sripc nya kebetulan saya bekerja bagia adm

jadi pada komputer saya sangat banyak yang minta tolong untuk ngeprint

sehingga tinta printer saya ngk cukup untuk keperluan saya,

saya minta bantu apa scrip vba di excel untuk protec printer

ex : munculnya form password pada saat nge - print sehingga sebelum

melakukan print dia minta masukan password dulu , mohon bantuan na,
tank,s all

__._,_.___

Reply to sender | Reply to group | Reply via web post | Start a New Topic

Messages in this topic (2)

Recent Activity:

• New Members 109

Visit Your Group

+-:: XL-mania ::::::::::::::::::::----------------------------------+
| momods pecas ndaheeee... :( :( :(                                 | 
| http://www.facebook.com/group.php?gid=37671048001&ref=mf          |
+-------------------------------------------------------------------+
| DILARANG : MLM, money game, OOT, iklan tanpa izin, SARA, testing, |
| pembicaraan pribadi, one line message,  melecehkan,  tidak sopan. |
+-------------------------------------------------------------------+
| Buat subjek yang kreatif, jangan : "tanya", "help", "mohon bantu" |
| Usahakan besar attachment < 200 kb. Gunakan  winzip  jika  perlu. |
+-------------------------------------------------------------------+
| Ajak teman-teman Anda bergabung dengan mengirim e-mail kosong ke  |
| XL-mania-subscribe@yahoogroups.com atau kirimkan mereka file dari |
| http://groups.yahoo.com/group/XL-mania/files/Promotion/           |
+-------------------------------------------------------------------+
| Berikan testimoni di : http://www.friendster.com/xlmania atau...  |
| http://www.xl-mania.com/2008/06/testimoni-xl-mania.html           |
+-------------------------------------------------------------------+
| Message lama ada di :                                             |
| http://groups.yahoo.com/group/XL-mania/messages [perlu yahoo id]  |
| http://www.mail-archive.com/xl-mania@yahoogroups.com              |
+-------------------------------------------------------------------+

Switch to: Text-Only, Daily Digest • Unsubscribe • Terms of Use

.

__,_._,___