] Cara Set Page Break Base On Kriteria Tertentu
Dear Anto,
Setelah membaca kamus, ternyata ada cara lebih praktis. Cara manual
sebelumnya mohon diabaikan. Berikut cuplikan vba-nya :
Sub ManualPagebreaks()
Dim vAwal, vAkhir, vJumlah, i As Variant
Dim Areaku As String
Sub uf_PageBreak(ByVal strdaerah As String, antarbaris As Long)
Dim awalbaris As Long
Dim jumbaris, kali_PB As Long
Dim daerah As Range
Set daerah = Range(strdaerah)
awalbaris = daerah.Row
jumbaris = daerah.Rows.Count
kali_PB = Excel.WorksheetFunction.RoundUp(jumbaris
Dear Anto,
Permintaan Anda itu mungkin dilakukan.
Untuk set print area, jika Anda menginginkan setiap 30 baris data
menjadi next page. Maka Anda perlu insert 1 row sebagai pembatas.
Karena ("A1:A30","A31:A60") dibaca menjadi ("A1:A60").
Dampak dari insert row tersebut bisa mempengaruhi hasil di
3 matches
Mail list logo
