Sabtu, 16 Juni 2012

[belajar-excel] Digest Number 1651

Messages In This Digest (8 Messages)

Messages

1a.

Re: menge-print di printer yang berbeda

Posted by: "Kid Mr." mr.nmkid@gmail.com   nmkid.family@ymail.com

Fri Jun 15, 2012 12:52 am (PDT)



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_2605@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.nmkid@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_2605@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
>
>
>
>
>
>
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (4)
2a.

Re: Script VBA Save As to PDF

Posted by: "Kid Mr." mr.nmkid@gmail.com   nmkid.family@ymail.com

Fri Jun 15, 2012 12:58 am (PDT)



Coba buat dengan record macro :
>> ke ribbon developer -> record macro -> tulis nama prosedur -> OK
>> lakukan file save as (akan muncul dialog save file)
>> pilih format (tipe) yang diinginkan (perhatikan ekstensi yang diinginkan)
>> beri nama file dan pilih lokasi penyimpanannya
>> tekan tombol Save
>> kembali ke ribbon developer -> tekan tombol stop recording
>> ke VBE -> module1 -> cari nama prosedur yang ditulis tadi
>> ubah sesuai kebutuhan untuk mendinamiskannya

Wassalam,
Kid.

2012/6/15 lapendosol opik <lapendosol@yahoo.com>

> **
>
>
> Master2 excel, saya baru belajar tentang VBA, mau tanya kalo mau buat
> tombol save otomatis gimana scriptnya ya.
> Mohon bantuannya para master suhu.
> Begini kondisinya. Tombol ini ada di Sheet1, sementara file (halaman) yang
> mau di Save ada di Sheet2. Nantinya file pdf diberi nama dengan nama yg di
> cell A5
>
> Private Sub cmdTombolSave_Click()
> 'Pencet tombol ini fungsinya men-Save As to PDF or XPS file yang ada di
> Sheet2 dengan nama dari cell ("A5".pdf) di Sheet1
>
> End Sub
>
>
>
>
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (3)
2b.

Re: Script VBA Save As to PDF

Posted by: "lapendosol opik" lapendosol@yahoo.com   lapendosol

Fri Jun 15, 2012 3:35 am (PDT)



Makasih mas master Kid, setelah dicoba2 berkali2, berhasil juga Sheet2, nama file dari cell, save di folder xxx dll.

________________________________
From: Kid Mr. <mr.nmkid@gmail.com>
To: belajar-excel@yahoogroups.com
Sent: Friday, June 15, 2012 2:58 PM
Subject: Re: [belajar-excel] Script VBA Save As to PDF


 
Coba buat dengan record macro :
>> ke ribbon developer -> record macro -> tulis nama prosedur -> OK
>> lakukan file save as (akan muncul dialog save file)
>> pilih format (tipe) yang diinginkan (perhatikan ekstensi yang diinginkan)
>> beri nama file dan pilih lokasi penyimpanannya
>> tekan tombol Save
>> kembali ke ribbon developer -> tekan tombol stop recording
>> ke VBE -> module1 -> cari nama prosedur yang ditulis tadi
>> ubah sesuai kebutuhan untuk mendinamiskannya

Wassalam,
Kid.

2012/6/15 lapendosol opik <lapendosol@yahoo.com>

> 
>Master2 excel, saya baru belajar tentang VBA, mau tanya kalo mau buat tombol save otomatis gimana scriptnya ya.
>Mohon bantuannya para master suhu.
>Begini kondisinya. Tombol ini ada di Sheet1, sementara file (halaman) yang mau di Save ada di Sheet2. Nantinya file pdf diberi nama dengan nama yg di cell A5
>
>
>
>Private Sub cmdTombolSave_Click()
>'Pencet tombol ini fungsinya men-Save As to PDF or XPS file yang ada di Sheet2 dengan nama dari cell ("A5".pdf) di Sheet1
>
>End Sub
>
>
>

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (3)
3a.

Re: membuat userform treeview

Posted by: "Supriyanto S" priyant37@gmail.com   priweto

Fri Jun 15, 2012 2:10 am (PDT)



Mr Kid,

Saya sudah melakukan install dan register mscomctl.ocx, saya cek pada
C:Windows/System32 file tsb juga sudah ada. Next saya coba lakukan
pengaktifan item2 treeview pada VBE namun saya terkendala pada menu
Additional Controls yang mana menu tsb tidak bisa diklik/akses. saya juga
sudah coba aktifkan melalui menu References dan browse ke
C:Windows/System32/mscomctl.ocx tetapi tetap aja item treeview tidak mau
muncul pada toolbox.
Mohon dibantu pencerahannya mr Kid.
terima kasih

supriy

Pada 12 Juni 2012 00:19, Kid Mr. <mr.nmkid@gmail.com> menulis:

> **
>
>
> Pak Supriyanto,
>
> Object control treeview ada dalam library control mscomctl.ocx. Pastikan
> library tersebut ter-install dan teregister. Aktifkan juga pada VBE ->
> Tools -> Additional Control -> item Treeview bla-bla
>
> Kira-kira contohnya seperti file terlampir.
>
> Wassalam,
> Kid.
>
>
> 2012/6/10 Supriyanto S <priyant37@gmail.com>
>
>> **
>>
>>
>> Kepada agan master excel,
>>
>> Saya mohon bantuannya dibuatkan contoh userform treeview beserta vba nya.
>> untuk tidak membuat bingung saya lampirkan file contoh yang saya inginkan.
>> Atas bantuan agan agan master excel saya ucapkan terima kasih
>>
>> by. supriy kaltim
>>
>>
>>
>
>
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (4)
3b.

Re: membuat userform treeview

Posted by: "Kid Mr." mr.nmkid@gmail.com   nmkid.family@ymail.com

Fri Jun 15, 2012 2:13 am (PDT)



Asumsi : mscomctl.ocx sudah diinstall dan teregister

>> Masuk Excel
>> ke VBE (ALT F11)
>> menu Insert -> pilih UserForm
>> menu Tools -> Additional Controls
>> cari object control Treeview bla-bla SP6 atau berapa gitu dan pastikan
di centang (atau di x)
>> tekan OK
>> lihat toolbox
>> hover (gerakkan mouse) ke tombol-tombol dalam toolbox
>> cari treeview
>> klik si icon, gambar kotak di userform

Wassalam,
Kid.

2012/6/15 Supriyanto S <priyant37@gmail.com>

> **
>
>
> Mr Kid,
>
> Saya sudah melakukan install dan register mscomctl.ocx, saya cek pada
> C:Windows/System32 file tsb juga sudah ada. Next saya coba lakukan
> pengaktifan item2 treeview pada VBE namun saya terkendala pada menu
> Additional Controls yang mana menu tsb tidak bisa diklik/akses. saya juga
> sudah coba aktifkan melalui menu References dan browse ke
> C:Windows/System32/mscomctl.ocx tetapi tetap aja item treeview tidak mau
> muncul pada toolbox.
> Mohon dibantu pencerahannya mr Kid.
> terima kasih
>
> supriy
>
> Pada 12 Juni 2012 00:19, Kid Mr. <mr.nmkid@gmail.com> menulis:
>
> **
>>
>>
>> Pak Supriyanto,
>>
>> Object control treeview ada dalam library control mscomctl.ocx. Pastikan
>> library tersebut ter-install dan teregister. Aktifkan juga pada VBE ->
>> Tools -> Additional Control -> item Treeview bla-bla
>>
>> Kira-kira contohnya seperti file terlampir.
>>
>> Wassalam,
>> Kid.
>>
>>
>> 2012/6/10 Supriyanto S <priyant37@gmail.com>
>>
>>> **
>>>
>>>
>>> Kepada agan master excel,
>>>
>>> Saya mohon bantuannya dibuatkan contoh userform treeview beserta vba
>>> nya. untuk tidak membuat bingung saya lampirkan file contoh yang saya
>>> inginkan.
>>> Atas bantuan agan agan master excel saya ucapkan terima kasih
>>>
>>> by. supriy kaltim
>>>
>>>
>>>
>>
>
>
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (4)
4.

Konversi file Excel ke Exe untuk pengamanan data

Posted by: "hendrik karnadi" hendrikkarnadi@yahoo.com   hendrikkarnadi

Fri Jun 15, 2012 9:17 pm (PDT)



Buat rekan2 be Excel yang ingin mengamankan file Excelnya barangkali Sofware terlampir bisa menjadi salah satu solusinya, dimana file Excel yang sudah diubah menjadi Exe tidak bisa di Save atau Save As jika file dibuat Read Only.
- Perbedaan dengan Read Only di Excel adalah file ini tidak bisa diSave As

- Perbedaan dengan PDF adalah file ini masih bisa diedit namun hasil edit tidak bisa diSave.
- File berisi Macro masih bisa bekerja namun Macronya tidak bisa diedit.

Selamat mencoba.

CMIIW

Salam,
Hendrik Karnadi

File terlampir adalah hasil download gratis dari Internet
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (1)
5a.

Input Data Berdasarkan Nama

Posted by: "rodhy hakim" odhyz83_assasaky@yahoo.com   odhyz83_assasaky

Fri Jun 15, 2012 10:43 pm (PDT)



Dear Exceler,
 
1. Bagaimana membuat inputan data berdasarkan nama listbox, kemudian disimpan dalam tabel database.
2. Data di simpan menggunakan Tombol, data yang sudah di simpan bisa di edit dan dihapus menggunkanan tombol.
 
Sebelumnya, Terima Kasih atas pencerahannya,
 
Salam,
 
Odhy.
 
Note: File Terlampir
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (2)
5b.

Re: Input Data Berdasarkan Nama

Posted by: "Kid Mr." mr.nmkid@gmail.com   nmkid.family@ymail.com

Fri Jun 15, 2012 11:25 pm (PDT)



Coba pelajari file terlampir.
Sebuah contoh input menggunakan VBA dari mbak Siti yang baru-baru ini
pernah ditanyakan.

Wassalam,
Kid.

N.B.
Bagian yang kurang pas pada event scrollbar change sudah di-pas-pas-ken

2012/6/16 rodhy hakim <odhyz83_assasaky@yahoo.com>

> **
>
>
> Dear Exceler,
>
> 1. Bagaimana membuat inputan data berdasarkan nama listbox, kemudian
> disimpan dalam tabel database.
> 2. Data di simpan menggunakan Tombol, data yang sudah di simpan bisa di
> edit dan dihapus menggunkanan tombol.
>
> Sebelumnya, Terima Kasih atas pencerahannya,
>
> Salam,
>
> Odhy.
>
> *Note: File Terlampir*
>
>
>
>
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (2)
Recent Activity
Visit Your Group
Yahoo! Finance

It's Now Personal

Guides, news,

advice & more.

Yahoo! Groups

Parenting Zone

Family and home

Tips for mom

Yahoo! Groups

Mental Health Zone

Bi-polar disorder

Find support

Need to Reply?

Click one of the "Reply" links to respond to a specific message in the Daily Digest.

Create New Topic | Visit Your Group on the Web
---------------------------------------------------------------------
bergabung ke milis (subscribe), kirim mail kosong ke:
belajar-excel-subscribe@yahoogroups.com

posting ke milis, kirimkan ke:
belajar-excel@yahoogroups.com

berkunjung ke web milis
http://tech.groups.yahoo.com/group/belajar-excel/messages

melihat file archive / mendownload lampiran
http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di :
http://milis-belajar-excel.1048464.n5.nabble.com/

menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com

keluar dari membership milis (UnSubscribe):
kirim mail kosong ke  belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------
Diposting oleh EXCEL FEED LEARNING di 00.38

Tidak ada komentar:

Posting Komentar

Langganan: Posting Komentar (Atom)