Print Preview Biodata Plus Photo Dengan UserFrom VBA Excel
Cantik Tak?? Print Preview Biodata Plus Photo Dengan UserForm VBA Excel. Sangat membantu membuat aplikasi Database siswa lengkap dengan foto saat akan di print langsung nempel dech fotonya sesuai dengan data yang ada dalam database.
selain itu fungsi ini juga bisa dikembangkan untuk membuat Student Card. Membuat biodata lengkap siswa untuk raport, biodata karyawan dan banyak lainnya.
selain itu fungsi ini juga bisa dikembangkan untuk membuat Student Card. Membuat biodata lengkap siswa untuk raport, biodata karyawan dan banyak lainnya.
 |
| Print Preview Biodata Plus Photo Dengan UserFrom VBA Excel |
Aplikasi yang dilengkapi dengan foto akan lebih mudah mengenal pemilik data. Walau data nama ada yang sama dengan mudah kita dapat mengenali pemilik data. Penentuannya hanya ketika memasukkan foto tidak salah data saja.
Tidak hanya aplikasi data yang di kantoran saja dapat memanfaatkan filtur foto yang disematkan didalamnya. Aplikasi kasir swalayan juga akan lebih memudahkan pengelola untuk menginput stock barang.
Langkah-Langkah membuat Print Priview Biodata Plus Photo Dengan UserForm VBA Excel :
Demikian Kode untuk Print Preview Biodata Plus Photo Dengan UserFrom VBA Excel, Semoga dapat dikembangkan sesuai dengan kebutuhannya masing-masing.
Semoga artikel ini dapat menjadi salah satu acuan dan referensi serta informasi bagi yang sedang mempelajari Vba Excel.
Jika artikel ini dirasakan ada manfaat dan berguna mohon dapat dishare ke media sosial agar teman-teman lainnya yang memiliki hobi yang sama dapat mempelajarinya juga.
Jika ingin menyampaikan pertanyaan, saran dan kritikan mohon dapat disampaikan pada kolom komentar yang tersedia di bawah artikel ini.
Jika anda memiliki kode Vba Excel yang berbeda namun memiliki fungsi dan alur kerja yang sama mohon dapat dishare pula di kolom komentar agar pengunjung lainnya dapat mempelajarinya.
Tidak hanya aplikasi data yang di kantoran saja dapat memanfaatkan filtur foto yang disematkan didalamnya. Aplikasi kasir swalayan juga akan lebih memudahkan pengelola untuk menginput stock barang.
Langkah-Langkah membuat Print Priview Biodata Plus Photo Dengan UserForm VBA Excel :
- Rancang UserFrom Seperti dijelaskan pada Posting "Insert Foto Kedalam Aplikasi Dengan Userfrom VBA Excel"
- Tambahkan Tombol Cetak dan Tempatkan Kode dibawah ini pada Tombol Cetak
Private Sub TombolCetak_Click()
Dim Ws As Worksheet: Set Ws = Sheet2
Dim path As String: path = ThisWorkbook.path & "\" & "Foto" & "\"
If Dir(path & UserForm1.TxtNis.Text & ".jpg") = Empty Then
MsgBox "Photo Belum Tersedia..!! Inser Photo Terlebih Dahulu..!!", 64, "Aplikasi InserPhoto"
Exit Sub
End If
UserForm1.Hide
Application.Visible = True
With Ws
.Activate
.Range("E5").Value = Me.TxtNis.Text
.Range("E6").Value = Me.TxtNama.Text
.Range("E7").Value = Me.TxtKelas.Text
.Range("E8").Value = Me.TxtWali.Text
.Range("E9").Value = Me.TxtAlamat.Text
.Shapes("Rectangle 1").Fill.UserPicture (path & UserForm1.TxtNis.Text & ".jpg")
End With
Ws.PrintPreview
Application.Visible = False
UserForm1.Show
End Sub
Dim Ws As Worksheet: Set Ws = Sheet2
Dim path As String: path = ThisWorkbook.path & "\" & "Foto" & "\"
If Dir(path & UserForm1.TxtNis.Text & ".jpg") = Empty Then
MsgBox "Photo Belum Tersedia..!! Inser Photo Terlebih Dahulu..!!", 64, "Aplikasi InserPhoto"
Exit Sub
End If
UserForm1.Hide
Application.Visible = True
With Ws
.Activate
.Range("E5").Value = Me.TxtNis.Text
.Range("E6").Value = Me.TxtNama.Text
.Range("E7").Value = Me.TxtKelas.Text
.Range("E8").Value = Me.TxtWali.Text
.Range("E9").Value = Me.TxtAlamat.Text
.Shapes("Rectangle 1").Fill.UserPicture (path & UserForm1.TxtNis.Text & ".jpg")
End With
Ws.PrintPreview
Application.Visible = False
UserForm1.Show
End Sub
Demikian Kode untuk Print Preview Biodata Plus Photo Dengan UserFrom VBA Excel, Semoga dapat dikembangkan sesuai dengan kebutuhannya masing-masing.
Download
*Jika link mati / tidak dapat diakses silahkan lapor via kontak yang tersedia
*Jika link mati / tidak dapat diakses silahkan lapor via kontak yang tersedia
LINK DOWNLOAD TERKUNCI.
Silahkan SHARE untuk membuka kunci!
Silahkan SHARE untuk membuka kunci!
Semoga artikel ini dapat menjadi salah satu acuan dan referensi serta informasi bagi yang sedang mempelajari Vba Excel.
Jika artikel ini dirasakan ada manfaat dan berguna mohon dapat dishare ke media sosial agar teman-teman lainnya yang memiliki hobi yang sama dapat mempelajarinya juga.
Jika ingin menyampaikan pertanyaan, saran dan kritikan mohon dapat disampaikan pada kolom komentar yang tersedia di bawah artikel ini.
Jika anda memiliki kode Vba Excel yang berbeda namun memiliki fungsi dan alur kerja yang sama mohon dapat dishare pula di kolom komentar agar pengunjung lainnya dapat mempelajarinya.
Teurimong Geunaseh Syedara lon, sdh Sy Ikuti Sesuai dgn Petunjuk, dan hasilnya Mantap that, File Pun cukup ringan...Syukran...
BalasHapusTerimoeng Geunaseh cit ka neu silaturrahmi bak blog lon.... Semoga dapat dikembangkan sesuai dengan keperluan Tgk....
HapusMaaf kak mau tanya, itu excelnya bisa dalam bentuk .exe itu gimana cara convertnya ya, makasih
BalasHapusDear Ismoyo Soeharto..!! Terimakasih sudah berkunjung ke blog saya..!! Bertanya tak perlu minta maaf x...!! untuk mengubah format Excel ke Exe menggunakan Software Compiler... Coba disearching saja dengan kata kunci "Compiler Exce" pasti ketemu banyak
HapusOke Mas, sekalian tanya, kalu mau menampilkan foto yang berada di userform ke cell excel untuk dicetak bagaimana kodingnya ya mas ?
BalasHapusSaya rasa tidak jauh berbeda dengan posting ini. saya tidak bisa menerka karena tidak melihat aplikasi yang anda rancang dan permasalahan yang sedang dihadapi..
Hapus.Shapes("Rectangle 1").Fill.UserPicture (path & UserForm1.TxtNis.Text & ".jpg")
BalasHapusbagian ini error kenapa ya mas?