Wednesday, June 29, 2016

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. 

Download File : Print Biodata Plus Photo

Langkah-Langkah membuat Print Priview Biodata Plus Photo Dengan UserForm VBA Excel :
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

  • Demikian Kode untuk Print Preview Biodata Plus Photo Dengan UserFrom VBA Excel, Semoga dapat dikembangkan sesuai dengan kebutuhannya masing-masing.


6 komentar

Teurimong Geunaseh Syedara lon, sdh Sy Ikuti Sesuai dgn Petunjuk, dan hasilnya Mantap that, File Pun cukup ringan...Syukran...

Terimoeng Geunaseh cit ka neu silaturrahmi bak blog lon.... Semoga dapat dikembangkan sesuai dengan keperluan Tgk....

Maaf kak mau tanya, itu excelnya bisa dalam bentuk .exe itu gimana cara convertnya ya, makasih

Dear 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

Oke Mas, sekalian tanya, kalu mau menampilkan foto yang berada di userform ke cell excel untuk dicetak bagaimana kodingnya ya mas ?

Saya rasa tidak jauh berbeda dengan posting ini. saya tidak bisa menerka karena tidak melihat aplikasi yang anda rancang dan permasalahan yang sedang dihadapi..

Komentar Anda Sangat Menentukan Kelangsungan Blog ini
EmoticonEmoticon