Laman

Jumat, 22 Oktober 2010

Menampilkan Report Format PDF Di VB

         Nah kita ktemu lagi di Rious Of RQ blog ini..., Sekarang kita akan membahas cara membuat Report Utk VB tapi formatnya ".pdf".
         But.....(tapi maksudnya...hehehehe.. : ) ) kamu harus mempunyai sofware untuk membuat programnya... yaitu pertama pastinya anda butuh VB, lalu anda juga memerlukan sofware cystal reports (versi 8.5), dan juga adobe acrobat.... Kalau sudah ikuti langkah berikut ini:

  1. Buatlah report tentunya di crystal reports (versi 8.5), bebas report apa aja yang penting report yang dibikin di crystal reports tentunya...
  2. Klik Menu File > Export
  3. Pilih acrobat format (PDF)
  4. Klik OK
  5. Pilih halaman berapa yang akan dicetak dalam bentuk PDF tentunya
  6. Lalu simpan (lebih baik di tempat yang mudal diingat agar gak lupa)
  7. Buka VB seperti biasa
  8. Lalu masukan OLE di dalam form tersebut...
  9. Klik Browser..
  10. Pilih File PDF yang tadi udah dibuat......
  11. Klik Ok...
  12. Jalanin programnya dan lihat hasilnya....
          Ada juga cara lain yaitu dengan cara
  • Lakukan langkah dari langkah no. 1-7
  • Seperti biasa buka VBnya...
  • Tambahkan command button ke form..
  • Lalu Masukan Coding dibawah ini:
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal
hwnd As Long, ByVal lpszOp As String, ByVal lpszFile As String, ByVal lpszParams As
String, ByVal lpszDir As String, ByVal FsShowCmd As Long) As Long
Private Sub Command1_Click()
Dim Buka As Long
Dim STR As String
STR = "C:\Data Office\report3.pdf"
Buka = OpenDocument(STR)
End Sub
Function OpenDocument(ByVal DocName As String) As Long
Dim Scr_hDC As Long
OpenDocument = ShellExecute(Me.hwnd, "Open", DocName, "", "C:\",
SW_SHOWNORMAL)
End Function
  • Jalankan Programnya
  • Klik command buttonnya
  • Kalau gagal wayahna.... hehehehehehe... becanda... coba klik ssatu kali lagi command buttonnya kalau gak jalan.
      Sampai jumpa lagi di modul berikutnya...
      Semoga Sukse dan Selamat Mencoba..

0 komentar:

Posting Komentar