contohnya spt ini mas @manweljs_
seperti gbr terlampir
- ‹ Older
-
6 tahun lalu
-
terlampir contohnya. silahkan di kembangkan
-
Thanks mas @manweljs_
untuk membuatnya jadi format potrait, tinggal nambahin code di bagian ya mas ?
trims -
Apanya yg potrait, kertasnya kah?
Skrip contoh nya kan mmng setting default excel untuk kertasnya (potrait)
-
maksudanya seperti ini mas
saya lampirkan dalam gambar penjelasannya
terima kasih sebelumnya ya mas -
-
terima kasih banyak ilmunya mas @manweljs_
-
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 -
@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.
-
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
................................................................... -
-
Muncul Debug seperti terlampir mas jika klik print klo di buat protect sheet
-
Di sunting 6 tahun 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
-
@Apriuz ... mksdnya codingnya di tambahkan apa mas supaya nggak terjadi debug seperti gambar terlampir saat di klik timbol print ...
Pesan errornya apa? Mungkin terkait susunan tabel databasenya? Kalau bisa lampirkan saja filenya, bisa lewat PM ...
Demikian.
-
4 tahun lalu
bagaimana print multiselection dari listbox? kita menginginkan beberapa baris data yang kita pilih untuk di print.
terima kasih -
@rofii terlampir contohnya
-
terima kasih banyak
mantap hasilnya -
saya coba merubah transpose menjadi "False"
kemudian saya coba pilih 10 baris data di listbox, di sheet shprint muncul sesuai baris yg terpilih
kemudian kita pilih 5 baris baru, di sheet shprint muncul 5 baris data baru dengan 5 baris data lama
artinya baris lama tidak terhapus
terima kasih -
Coba edit menjadi :
Private Sub btnPRINT_Click() Dim rng As Range, sel As Range Set rng = shData.Range("B1:B" & shData.Range("A" & Rows.Count).End(xlUp).Row) Application.ScreenUpdating = False With ListBox1 For i = 0 To .ListCount - 1 If .Selected(i) Then For Each sel In rng If sel = .List(i, 0) Then x = shPrint.Range("D" & Rows.Count).End(xlUp).Row + 1 shData.Range("A" & sel.Row, "F" & sel.Row).Copy shPrint.Range("D" & x).PasteSpecial xlPasteValues End If Next End If Next i End With Unload Me Application.ScreenUpdating = True With shPrint .PageSetup.PrintArea = .Range("D2:I" & .Range("D" & Rows.Count).End(xlUp).Row).Address .PrintPreview End With End Sub -
maap numpang nanya di thread ini. kalo misalnya dengan pembahasan yang sama seperti diatas tapi lampiran di bawah ini gimana om @manweljs_ ane lagi mw belajar VBA om.
