Menambahkan Print dan desain pada Crystall Report

Di suatu form project kebanyakan terdapat button untuk print atau mencetak data.Nah kegiatan saya hari ini adalah membuat print ke crystall report dengan menjadikan tampilannya tertata secara urut rata dan rapi.
Langkah-langkahnya :
Tambahkan button beri caption print atau cetak , lalu tambahkan komponen untuk print ke crystal report jangan lupa juga atur Reference , centang semua yang berhubungan dengan crystall report.Setelah selesai tambahkan coding seperti ini :

Private Sub cmdprint_Click()
Form1.Hide
Form2.Show
    Set rpt = rptapps.OpenReport(App.Path & "\form\rosi.rpt")
rpt.DiscardSavedData
strsql = "select * from terapi_2  where id <>'' "
Set rs = con.Execute(strsql) 'ambil data dari table  ke recordset
rpt.database.SetDataSource rs  ' masukan data dari recordset ke crystal report

With Form2.CRViewer1   'komponen preview
   .ReportSource = rpt  ' ambil report
   .EnableGroupTree = False ' hiden tree
   .EnableExportButton = True  ' tampilkan tombol export
   .Zoom 100
   .ViewReport ' tampilkan
 
End With
End Sub

Jangan lupa juga buat form baru untuk menampilkan crystall report.

Langkah selanjutnya adalah : desain secara manual pada crystal report , atur juga formula dan barisan yang pada crystall report , di bawah ini desain yang sudah saya masukkan :

Setelah itu jalankan programnya , nanti sususan pada projectnya akan tertata rapi.
Terimakasihh , di tunggu komennya :D