Membuat kartu anggota dengan memanfaatkan VBA Ms. Excel
Pertama, desain dulu tampilan kartu anggota yang diinginkan, salah satu contohnya seperti di bawah ini
format file yang disarankan adalah *.png atau *.wmf atau format file lain yang mendukung background transparan
Pembuatan desain kartu bisa dengan menggunakan aplikasi Corel Draw atau Adobe Photoshop ataupun yang lain… tergantung user
setelah itu, masukkan/insert gambar tersebut ke dalam file excel yang sudah kita buat
untuk sementara, kolom/field/data-data yang digunakan hanya No Induk, Nama, kelas dan barcode no induk anggota .. untuk foto tidak disertakan dulu, layout bisa seperti di bawah ini
untuk script/code program VBAnya bisa seperti ini
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 | Sub Cetak_KTA() With Sheets("cetak dan DATA") 'Looping pencetakan sebanyak 5 kaliFor a = 0 To 5 'pengisian data pada cell pencetakan kartu anggota yang sudah tersedia.Cells(4 + (a * 8), 2) = ActiveCell.Offset(0, 2).Value .Cells(5 + (a * 8), 2) = ActiveCell.Offset(0, 0).Value & " / " & ActiveCell.Offset(0, 3).Value ActiveCell.Offset(0, 1).Select b = ActiveCell.Address Selection.Copy Select Case a Case 0 Range("C7").Select ActiveSheet.Paste Case 1 Range("C15").Select ActiveSheet.Paste Case 2 Range("C23").Select ActiveSheet.Paste Case 3 Range("C31").Select ActiveSheet.Paste Case 4 Range("C39").Select ActiveSheet.Paste Case 5 Range("C47").Select ActiveSheet.Paste End Select Range(b).Select ActiveCell.Offset(0, -1).Select ActiveCell.Offset(1, 0).Select Next .PrintPreview If MsgBox("Cetak", vbQuestion + vbYesNo, "Diens_Macro") = vbYes Then Sheet1.PrintOut From:=1, To:=1, Copies:=1, Collate:=True Else ActiveCell.Offset(-6, 0).Select End If End With End Sub |
Tidak ada komentar:
Posting Komentar