print area dengan autofilter gagal

  1. tahun lalu
    Di sunting tahun lalu oleh USER50

    gan, help me...
    g ada bikin userform dengan autofilter untuk print slip gaji, tapi masalahnya pada saat autofilter aktif dan untuk print gaji malah blank pages juga di print.
    berikut saya ada lampirkan file nya

  2. Di sunting tahun lalu oleh Fujiansyah92

    Pada row terakhir untuk code print saya ganti& tambahkan jadi seperti ini :

      Sheets("Cetak").Select
        Dim CountMe: CountMe = (Cb_nik2 - Cb_nik1) + 1
        ActiveWindow.SelectedSheets.PrintOut From:=1, To:=CountMe, Copies:=1, Collate _
            :=True, IgnorePrintAreas:=False

    dan untuk dynamic range "datakar" seharusnya hanya sampai row 31 ..atau urutan ke 25 agar tdk blank pada combobox nik2 nya.

  3. Permasalahannya karena agar set print area sampai bawah sehingga walaupun difilter akan tetap terbaca sesuai print area tsb.

    solusinya yaitu :

    1. Set ulang print area dg membaca dari atas hingga baris terakhir yg tampil.
    2. Membatasi page yg terakhir di print dg membaca dari combobox (nik2) ..

    untuk yg saya kirim sebelumnya ,menggunakan opsi kedua.

    sedangkan kalau ingin menggunakan opsi pertama .gunakan code ini di akhirnya

    Sheets("Cetak").Select
    Dim lstrow
    lstrow = Range("E4:E9999").Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row + 1
    ActiveSheet.PageSetup.PrintArea = "$B$2:$K$" & lstrow
    ActiveWindow.SelectedSheets.Application.Dialogs(xlDialogPrint).Show


    Slip Gaji2.xlsb

  4. makasi gan, membantu banget:)

  5. oke sama sama.senang bisa membantu :)

 

atau Mendaftar untuk ikut berdiskusi!