Thanks teman2 Mba Siti, setelah saya coba, Spin buttonnya hanya untuk Print previewkah, apa bisa lgsng cetak mis saya mau bikin 10 surat
Terimakasih sebelumnya 2011/7/8 STDEV(i) <[email protected]> > ** > > > berarti nomor surat akan punya KOLOM sendiri dlm tabel kan ya > > misal nomor ditaruh di kolom I pada tabel > maka rumus di B2 pada sheet FormSurat > ="No : "&*OFFSET(Data!$I$4,$N$2,0)* > &"/List-pst/"&MONTH(TODAY())&"/"&YEAR(TODAY()) > > > > 2011/7/8 Yusril Ramadani <[email protected]> > >> ** >> >> >> Terima kasih Mba Siti >> begini Mba Siti No Surat tidak sama dg No List Mba, bagaiman ya >> merubahnya >> >> >> >> 2011/7/8 STDEV(i) <[email protected]> >> >>> seperti ini kah yang dimaksod ?? >>> >>> 1. >>> perubahan data di FORM surat: hanya mengandalkan RUMUS >>> Rumusnya pun sangat sederhana, karena hanya sekitar Ofset-ofset-an >>> saja... >>> (boleh digandi denan index-index-an (ndak usah pakai If-If-an !! he he) >>> >>> 2. >>> perubahan record (baris data) 1 ke berikutnya (di tabel data) dibantu >>> oleh >>> SPIN BUTTON (itu lho pak, tombol yg kalo diceklik angkanya "maju" atau >>> "mundur") >>> >>> 3. >>> Spin Butoon diberi nilai MAX = sebanyak jumlah records (agar tidak >>> kebablasan >>> merujuk ke data kosong) >>> lha... ini baru perlu makro !! >>> makro dijalankan setiap kali ada orang men-*DeAktifkan sheet Data* >>> (berarti baru saja melihat data, entah mengediit atau hanya melihat saja) >>> pokoknya urusan kita merefresh nilai MAX milis si SpinButton. >>> >>> 4. >>> untuk dapat mencetak secara BULK ( anda hanya membatasi NOMOR "MULAI" >>> dan NOMOR "SAMPAIDENGAN" juga perlu makro >>> >>> 5 >>> jadi ada dua kelompok makro >>> >>> 1 ada di module sheet data >>> >>> Private Sub Worksheet_Deactivate() >>> Dim dTabel As Range, T As Long >>> Set dTabel = Me.Range("D4").CurrentRegion.Offset(2, 0) >>> T = dTabel.Rows.Count - 2 >>> Sheets("contoh surat").SpinButton1.Min = 1 >>> Sheets("contoh surat").SpinButton1.Max = T >>> End Sub >>> >>> >>> 2 ada di module sheet FORM surat >>> >>> Private Sub Print1_Button_Click() >>> Me.PrintPreview >>> ' Me.PrintOut >>> End Sub >>> >>> Private Sub Print2_Button_Click() >>> Dim i As Long >>> For i = Range("N11") To Range("N13") >>> Range("N2") = i >>> Me.PrintPreview >>> ' Me.PrintOut >>> Next i >>> End Sub >>> >>> ' note >>> selama untuk coba coba pakai PrintPreview dulu >>> kalau sudah oke baru diganti perintah PrintOut. >>> >>> ~ siti >>> >>> >>> >
