Silakan dicoba jawaban terlampir (pakai macro).
Macronya adalah sebagai berikut :
Sub Ctk_Oto()
Range("Counter") = Range("Mulai")
For i = Range("Mulai") To Range("Sampai")
ActiveSheet.PrintPreview
If Range("Counter") = Range("Sampai") Then
Exit Sub
Else
Range("Counter") = Range("Counter") + 1
End If
Next
End Sub
Penjelasannya adalah sebagai berikut :
- Range("Counter") adalah angka yang akan terus bergulir mulai dari Range("Mulai") s/d Range ("Sampai")
- Range( "Counter") dihubungkan dengan No Faktur yang akan dipreview atau diprint dengan fungsi Index
- ActiveSheet.PrintPreview untuk melihat di layar (kalo mau dicetak tinggal diganti menjadi ActiveSheet.PrintOut.
Untuk menjalankan macronya :
- Pilih No Faktur Awal dan Akhir
- Tekan tanda panah "C E T A K" yang telah disisipi macro.
Semoga dapat membantu.
Salam,
Hendrik Karnadi
From: Pietroli Foe <pietrolifoe@yahoo.com>
To: XL-mania@yahoogroups.com
Sent: Saturday, November 27, 2010 6:33:27
Subject: ]] XL-mania [[ Mencetak berurutan dengan satu klik
Macronya adalah sebagai berikut :
Sub Ctk_Oto()
Range("Counter") = Range("Mulai")
For i = Range("Mulai") To Range("Sampai")
ActiveSheet.PrintPreview
If Range("Counter") = Range("Sampai") Then
Exit Sub
Else
Range("Counter") = Range("Counter") + 1
End If
Next
End Sub
Penjelasannya adalah sebagai berikut :
- Range("Counter") adalah angka yang akan terus bergulir mulai dari Range("Mulai") s/d Range ("Sampai")
- Range( "Counter") dihubungkan dengan No Faktur yang akan dipreview atau diprint dengan fungsi Index
- ActiveSheet.PrintPreview untuk melihat di layar (kalo mau dicetak tinggal diganti menjadi ActiveSheet.PrintOut.
Untuk menjalankan macronya :
- Pilih No Faktur Awal dan Akhir
- Tekan tanda panah "C E T A K" yang telah disisipi macro.
Semoga dapat membantu.
Salam,
Hendrik Karnadi
From: Pietroli Foe <pietrolifoe@yahoo.com>
To: XL-mania@yahoogroups.com
Sent: Saturday, November 27, 2010 6:33:27
Subject: ]] XL-mania [[ Mencetak berurutan dengan satu klik
Yth Pakar Excel
Mohon pencerahannya apakah memungkinkan nge-print format yang ditentukan lewat Data Validation secara berurutan dengan satu kali perintah (contoh ada di attachment).
Terima kasih
__._,_.___
+-:: XL-mania ::::::::::::::::::::----------------------------------+
| soridori gan, moderasi telat lagi, momods lagi mumet... |
| 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 |
+-------------------------------------------------------------------+
| soridori gan, moderasi telat lagi, momods lagi mumet... |
| 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 |
+-------------------------------------------------------------------+
MARKETPLACE
.
__,_._,___
Nenhum comentário:
Postar um comentário