TERIMA KASIH Mr Kid kasus terpecahkan dan tercerahkan sekali lagi terima kasih
________________________________ From: Kid Mr. <mr.nm...@gmail.com> To: belajar-excel@yahoogroups.com Sent: Friday, June 15, 2012 2:52 PM Subject: Re: [belajar-excel] menge-print di printer yang berbeda Coba diubah jadi : Private Sub CommandButton1_Click() 'awal blok prosedur even klik si commandbutton1 dim sPrn as string 'string nama printer dim lIdxPort as long 'index port printer terpasang on error resume next 'set perilaku ketemu error sprn="\\NARDI\Epson LQ-2180 ESC/P 2" 'init nama printer yang akan digunakan lidxport=0 'init port pertama do 'mulai blok loop mencari port err.clear 'clear error 'set printer aktif di port terproses (mulai 00 sampai 99) Application.ActivePrinter = sprn & " on Ne" & format$(lidxport,"00") & ":" 'cek : apakah tidak muncul error (artinya printer ketemu portnya) if err.number=0 then 'ganti printout dengan printpreview kalau akan lihat preview-nya activesheet.printout 'lakukan proses print exit do 'selesai print, keluar dari loop mencari port endif 'akhir dari blok cek ketemu port 'kalau sampai baris ini, artinya belum ketemu port yang sesuai untuk si sprn lidxport=lidxport+1 'pindah port berikutnya (port lama ditambah 1) 'akhir blok loop, untuk ke proses loop berikutnya loop until lidxport=100 'batas loop mencari port adalah sampai port 99 saja err.clear 'clear error on error goto 0 'set balik perilaku ketika ketemu error end sub 'akhir blok prosedur even klik si commandbutton1 Wassalam, Kid. 2012/6/15 Purnomo Sidi <pysa_2...@yahoo.com> > >terima kasih atas tanggapan dari Mr Kid > > > >masih ada yang ingin saya tanyakan seperti ini ceritanya (terima kasih mau >menbaca cerita ini) > >saya mendapatkan kode dengan menggunakan Record Macro kemudian saya masukkan >kedalam kode Command Button hasilnya kurang lebih seperti ini : > > > > > >Private Sub CommandButton1_Click() > > > >Application.ActivePrinter = "\\NARDI\Epson LQ-2180 ESC/P 2 on Ne07:" >ExecuteExcel4Macro _ >"PRINT(2,1,1,1,,,,,,,,2,""\\NARDI\Epson LQ-2180 ESC/P 2 on Ne07 & >:"",,TRUE,,FALSE)" > >End Sub > >yang jadi masalah saat saya membuka file tersebut di lain waktu ternyata kode tersebut tidak bekerja dan muncul pesan seperti ini : > > > >Run-time error '1004': > >Method 'ActivePrinter' of object'_Application' failed > > >kemudian saya pilih End aja > > >selanjutnya saya menggunakan Record Macro lagi untuk mendapatkan kode baru dan >ternyata ada perbedaan dengan kode yang sudah saya tulis dan perbedan tersebut >terletak pada portnya. > > >Private Sub CommandButton1_Click() > > > >Application.ActivePrinter = "\\NARDI\Epson LQ-2180 ESC/P 2 on Ne04:" >ExecuteExcel4Macro _ >"PRINT(2,1,1,1,,,,,,,,2,""\\NARDI\Epson LQ-2180 ESC/P 2 on Ne04 & >:"",,TRUE,,FALSE)" > >End Sub >sekian > > >terima kasih >PYSA2605 > > > > > >________________________________ > From: Kid Mr. <mr.nm...@gmail.com> >To: belajar-excel@yahoogroups.com >Sent: Thursday, June 14, 2012 6:46 PM >Subject: Re: [belajar-excel] menge-print di printer yang berbeda > > > > >Untuk set printer mana yang akan digunakan, gunakan properti activeprinter >milik application. >Contoh : >application.activeprinter="\\alamat_komputer\nama printer on portnya" > >setelah itu baru lakukan print out dengan : >sheet1.printout 'misalnya akan print sheet1 pada printer di komputer >bernama alamat_komputer dengan nama printer adalah nama printer yang terhubung >melalui port bernama portnya > > >Wassalam, >Kid. > > >2012/6/14 Purnomo Sidi <pysa_2...@yahoo.com> > > >> >> >>salam persahabat, beExcel mohon bantuannya nih >> >> >>saya mempunyai dua printer yang berbeda jenis yang pertama berjenis tinta >>laser dan yang kedua priter DOT Matrix yang ingin saya tanyakan adalah : >>bagaimana kodenya jika saya ingin menge-Print di printer yang berbeda. Anggap >>saja command button "Print lampiran" untuk ngeprint sheet "lampiran" di >>printer 1 dan command button "Print permohonan" untuk menge-print Sheet >>"permohonan" di printer 2 untuk lebih jelasnya bisa dilihat di lampiran >>terima kasih atas bantuannya >>PYSA2605
