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 >
