Re: ]] XL-mania [[ Protect printer tertentu

 

sambil menunggu makro dari 'men-temen lain ...

mungkin gambaran kasarnya seperti ini:

(ditulis di "level workbook Module" / modul milik object ThisWorkbook)

 

Private Sub Workbook_BeforePrint(Cancel As Boolean)

   Const passwd As String = "tertentu"
   Dim pas As String
   If Application.ActivePrinter = "Canon IP 1600 on PC2:" Then
      pas = InputBox("Masukkan password untuk Cetak di Canon IP 1600", _
            "Cetak Dokument Excel")
      If pas <> passwd Then
         MsgBox "Anda tidak berhak !!", vbCritical, "Cetak Dokumen Excel"
         Cancel = True
         Exit Sub
      End If
   End If
   Cancel = False
End Sub

 

 

---

----- Original Message -----
From: jajang muhammad siddik
To: xl-mania@yahoogroups.com
Sent: Thursday, March 18, 2010 7:53 PM
Subject: ]] XL-mania [[ Protect printer tertentu

Dear para master excel...
mau tanya ni..kalo kita mau memprotect excel supaya tidak bisa ngeprint

pada printer tertentu caranya gimana ya???
Contoh kasus :

dari excel kita dapat mencetak dokumen ke printer Canon IP 1300 di PC 1 dengan bebas,

sedangkan untuk mencetak di printer Canon IP 1600 di PC 2 bisa, dengan sarat

memasukan password tertentu.....
Jadi form yang mau saya buat adalah ketika kita tekan CTRL+P atau menu print maka

akan muncul pilihan printer yang akan mencetak dokument.

Ketika kita memilih Printer Canon IP 1300 on PC1 maka dokumen akan langsung

mencetak, sedangkan jika kita memilih printer Canon Ip 1600 on PC 2 maka

akan meminta password...

Demikian, mohon pencerahannya..........
Salam,
jajangms

__._,_.___

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

Messages in this topic (2)

Recent Activity:

• New Members 100

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

.

__,_._,___