[belajar-excel] Print banyak running number?

classic Classic list List threaded Threaded
2 messages Options
Reply | Threaded
Open this post in threaded view
|

[belajar-excel] Print banyak running number?

Senja Laura
Saya ingin membuat label yang jumlahnya mencapai ratusan
selama ini di kerjakan secara manual yaitu print satu lembar dan di ganti
nomornya dan seterusnya
pertanyaan : adakah shortcut untuk sekali langkah saja untuk masalah
ini?misal pakai command button

label.xls (21K) Download Attachment
Reply | Threaded
Open this post in threaded view
|

Re: [belajar-excel] Print banyak running number?

siti Vi
Administrator
' au 'etak ya..

Private Sub CommandButton1_Click()
   Dim CetakKe As Long
   For CetakKe = Range("L3") To Range("L4")
       Range("A7") = CetakKe
       Range("A20") = CetakKe + 1
       Me.PrintPreview
      ' Me.PrintOut
   Next
End Sub

'------------
Karena tiap cetak =* Dua Nomor*;  maka Pengisian / Penentuan
Kriteria "MULAI DARI" &  "SAMPAI NOMOR"
hendaknya pakai logika ringan:
Jika Angka  Mulai =  Angka Genap, maka Angka Sampai = Ganjil
Begitu pula Sebaliknya
[image: au etak.GIF]
Jika tidak , , akan ada kelebihan / kekurangan cetak  1 page.



2011/4/28 Arsaura ete <[hidden email]>

> Saya ingin membuat label yang jumlahnya mencapai ratusan
> selama ini di kerjakan secara manual yaitu print satu lembar dan di ganti
> nomornya dan seterusnya
> pertanyaan : adakah shortcut untuk sekali langkah saja untuk masalah
> ini?misal pakai command button
>
>

au etak.GIF (7K) Download Attachment
ctv_Cetak Label_BernomorUrut.xls (58K) Download Attachment
~siti