Coding Macro Untuk Print Data Terpilih Di Listbox

  1. 2 bulan yang lalu

    Selamat malam teman-teman semua...

    bagi ilmu donk..
    bantu share coding atau contoh kasus donk utk print data yg di pilih dari list box,
    saat klik data yang kita inginkan di listbox maka bisa langsung kita print data tersebut dan bisa setting print juga

    terima kasih sebelumnya

    salam
    excel

  2. manweljs_

    Agu 5 Terverifikasi + 5.163 Poin

    @Apriuz

    yang dipilih dari list box kemudian hendak di print itu berupa apa? apakah sheet atau kolom atau baris atau apa ?

  3. contohnya spt ini mas @manweljs_
    seperti gbr terlampir

  4. manweljs_

    Agu 5 Terverifikasi + 5.163 Poin

    @Apriuz

    terlampir contohnya. silahkan di kembangkan

  5. Thanks mas @manweljs_
    untuk membuatnya jadi format potrait, tinggal nambahin code di bagian ya mas ?
    trims

  6. manweljs_

    Agu 6 Terverifikasi + 5.163 Poin

    @Apriuz

    Apanya yg potrait, kertasnya kah?

    Skrip contoh nya kan mmng setting default excel untuk kertasnya (potrait)

  7. maksudanya seperti ini mas
    saya lampirkan dalam gambar penjelasannya
    terima kasih sebelumnya ya mas

  8. manweljs_

    Agu 6 Terverifikasi + 5.163 Poin

    @Apriuz

    nah gitu dong, pertanyaanya kan jadi jelas.

    terlampir contohnya

  9. terima kasih banyak ilmunya mas @manweljs_

  10. 4 minggu lalu

    slmt malam mas @manweljs_
    mas....mau nanya, klo sheet terlampir
    sheet print nya di hiden/very hiden
    saat klik tombol print maka muncul print out
    nambah codingnya bagaimana mas ?
    mohon solusinya mas
    terima kasih

  11. Caton

    Sep 20 Terverifikasi Indonesia + 12.008 Poin

    @Apriuz ... sheet print nya di hiden/very hiden, saat klik tombol print maka muncul print out
    nambah codingnya bagaimana mas ...

    Setahu saya, Hidden Sheet tidak bisa dicetak secara langsung, jadi sheet tersebut terlebih harus ditampilkan terlebih dahulu, baru dicetak. Berikut triknya agar saat dicetak, sheet tetap tidak tampil:

    ...
    Application.ScreenUpdating = False
    shPrint.Visible = xlSheetVisible
    shPrint.PrintOut
    shPrint.Visible = xlSheetVeryHidden
    Application.ScreenUpdating = True
    ...

    Catatan: Bila di Print Preview, Hidden Sheet biasanya hanya akan menampilkan area hitam.

    Demikian.

  12. ohh gto ya mas @Caton
    klo dibuat protect sheet saja mas bisa kah mas ?
    bagaimana cara tambahinnya di tampilan berikut supaya nggak error atau bisa print preview,
    ............................................................
    Private Sub Cmdprint_Click()
    Dim rgKey As Range, rgCell As Range, rgData As Range
    Dim sItem As String
    Dim lIdx As Long

    If listCari.ListCount > 0 Then
    If listCari.ListIndex > 0 Then
    sItem = listCari.List(listCari.ListIndex, 1)
    With Sheets("DatabasePelanggan")
    Set rgKey = .Range("A3:A" & .Rows(.Rows.Count).End(xlUp).Row)
    End With
    For Each rgCell In rgKey
    If rgCell = sItem Then
    lIdx = rgCell.Row
    With Sheets("DatabasePelanggan")
    Set rgData = .Range(.Cells(lIdx, 1), .Cells(lIdx, 8))
    End With
    With Sheets("Cetak")
    For lIdx = 1 To 8
    .Cells(lIdx, 3) = rgData.Cells(1, lIdx)
    Next
    .Activate

    Me.Hide
    .PageSetup.PrintArea = .Range("A1:H8").Address
    .PrintPreview False
    Me.Show
    End With
    End If
    Next
    End If
    End If
    End Sub

    ...................................................................

  13. Caton

    Sep 22 Terverifikasi Indonesia + 12.008 Poin

    @Apriuz ... klo dibuat protect sheet saja mas bisa kah mas ...

    Bisa.

    @Apriuz ... bagaimana cara tambahinnya di tampilan berikut supaya nggak error ...

    Menambahkan apa? Lalu error-nya dimana? Bukankah itu sudah bisa di Print Preview?

  14. Muncul Debug seperti terlampir mas jika klik print klo di buat protect sheet

  15. Di sunting 4 minggu lalu oleh Apriuz

    ...... ... bagaimana cara tambahinnya di tampilan berikut supaya nggak error ...
    "Menambahkan apa? Lalu error-nya dimana? Bukankah itu sudah bisa di Print Preview?"

    maaf mas @Caton , mksdnya codingnya di tambahkan apa mas supaya nggak terjadi debug seperti gambar terlampir saat di klik timbol print..

    terima kasih

  16. Caton

    Sep 22 Terverifikasi Indonesia + 12.008 Poin

    @Apriuz ... mksdnya codingnya di tambahkan apa mas supaya nggak terjadi debug seperti gambar terlampir saat di klik timbol print ...

    -image-

    Pesan errornya apa? Mungkin terkait susunan tabel databasenya? Kalau bisa lampirkan saja filenya, bisa lewat PM ...

    Demikian.

 

atau Mendaftar untuk ikut berdiskusi!