Dear Xl mania,

Saya memiliki program sederhana VB dengan report excel.

Dari hasil koding di bawah akan menhasilkan data seperti file terlampir (Sheet 1).

Yang saya mau tanyakan adalah Bagaimana caranya agar saat print,  range dari data tersebut memiliki border secara otomatis (Sheet 2).

Ada yg bisa tambahkan coding dibawah, agar hasilnya bisa seperti yg di inginkan ?

    If Not ramadhan.EOF Then

    .Sheets("reguler").Select

    a = 2

                Do While Not ramadhan.EOF

                .Cells(a, 1) = ramadhan.Fields("cek")

                .Cells(a, 2) = ramadhan.Fields("kode_customer")

                .Cells(a, 3) = ramadhan("customer_nama")

                .Cells(a, 4) = ramadhan("no_invoice")

                .Cells(a, 5) = ramadhan("no_faktur")

                .Cells(a, 6) = ramadhan("tgl_invoice")

                .Cells(a, 7) = ramadhan("tgl_input")

                .Cells(a, 8) = ramadhan("kode_item")

                .Cells(a, 9) = Val(ramadhan("qty"))

                .Cells(a, 10) = Val(ramadhan("harga_beli"))

                .Cells(a, 11) = Val(ramadhan("harga_jual"))

                .Cells(a, 12) = (ramadhan("qty")) * (ramadhan("harga_beli"))

                .Cells(a, 13) = (ramadhan("qty")) * (ramadhan("harga_jual"))

                .Cells(a, 14) = (.Cells(a, 13)) - (.Cells(a, 12))

                .Cells(a, 15) = ramadhan("remark")

    ramadhan.MoveNext

    a = a + 1

    Loop

    Else

    End If

Terima kasih

Ramadhan