Home » » Setting Paper Size Crystal Report 8.5 Melalui Aplikasi/ Runnig Program
| 8 komentar ]

Terkadang ketika aplikasi melakukan cetak laporan sering kali terjadi ada beberapa bagian laporan tidak ikut tercetak. Salah satu penyababnya karena setting ukuran kertas kita tidak sesuai dengan format laporan yang dicetak, padahal sebelumnya sudah disetting dengan benar.Dan perubahan ukuran kertas itu terjadi salah satu penyebabnya adalah karena beda printer dengan setting laporan yang telah disetting sebelumnya. Kemudian kita melakukan pembenahan permasalah setting ukuran kertas pada printer tersebut dengan cara membuat ukuran kertas baru yang kemudian kita setting pada program dengan ukuran kertas tersebut, setelah itu program kita compile.


Masalahnya bagaimana apabila printer yang kita setting sebelumnya itu rusak kemudian user mengganti dengan printer baru dengan jenis yang berbeda, pasti kita akan melakukan langkah-langkah diatas lagi. Cara tersebut tidak ada salahnya, tapi kurang fleksible karena kita harus setting ulang program apabila terjadi perubahan jenis printer kemudian di compile lagi. Cara yang fleksible adalah dengan cara memanggil fungsi printer setting pada laporan crystal report. Di situ kita bisa memilih printer mana yang akan digunakan dan menggunakan kertas apa bentuk laporan kita. Caranya adalah sebagai berikut disini saya menggunakan visual basic 6.0 dengan Crystal repoty 8.5



Dim Report As New Lap_Penjualan

Dim m_Report As CRAXDDRT.Report


Private Sub CmdPrinter_Click()

m_Report.PrinterSetup Me.hwnd


CRViewer1.Refresh

End Sub



Private Sub Form_Load()

Set m_Report = Report

Screen.MousePointer = vbHourglass

Dim ADOComm As New ADODB.Command

Set DataBs = Nothing

DataBs.Open Connect

DataBs.CursorLocation = adUseClient


Set ADOComm= New ADODB.Command


ADOComm.ActiveConnection = Dbs

ADOComm.CommandType = adCmdText

ADOComm.CommandText = "Select * from Penjualan"

ADOComm.Execute


Set rec = New ADODB.Recordset


rec.Open ADOComm


m_Report.Database.SetDataSource rec


CRViewer1.ReportSource = m_Report

CRViewer1.ViewReport


Screen.MousePointer = vbDefault


End Sub




Mari kita bahas kode diatas, Perhatikan kode yang saya beri warna merah Dim m_Report As CRAXDDRT.Report. nahh…kode tersebut wajib dideklarasikan untuk menampung report nantinya. Yang akan kita setting ketika sub form_load() sehingga seperti ini Set m_Report = Report, seteleh kita melakukan koneksi kedatabse dan seleksi data yang akan ditampilkan ke report, seperti kode diatas. Kita setting lagi m_reportnya seperti ini m_Report.Database.SetDataSource rs, CRViewer1.ReportSource = m_Report. Perhatikan kode diatas yang berwarna merah. Setelah itu semua jangan lupa untuk menambah kan satu button untuk menampilkan printer setting kode nya seperti ini :



Private Sub CmdPrinter_Click()

m_Report.PrinterSetup Me.hwnd

CRViewer1.Refresh

End Sub




Maka ketika kita click button yang kita buat tadi maka akan mucul tampilan printer setting seperti ini :


















Sehingga kita tinggal memilih printer apa yang akan digunakan, kertas apa yang digunakan. Klick OK otomatis laporan akan berubah formatnya sesuai dengan ketentuan yang telah kita lakukan. Kita tidak perlu setting perinter secara manual atau pawaktu design. Pada waktu program sudah running pun kita bisa merubah setting printer dan paper sizenya.

Oiya sobat untuk setting koneksi database dan seleksinya, kode diatas saya menggunakan ADO, nanti saya bahas pada postingan saya berikutnya membuat laporan menggunakan koneksi ADO.sobat bisa merubah sesuai dengan sobat biasanya gunakan, yang terpenting kode yang saya beri warna merah itu harus ada. Kode diatas saya menggunakan designers crytal report pada visual basic 6.0.

Share |

Artikel Terkait :



8 komentar

sds mengatakan... @ 2 Juni 2011 10.17

Boleh nih dicoba.
bos, ane punya masalah dg koneksi crytal report buat jaringan.

koneksi databasenya lancar tapi begitu di print, ga bisa. bisa bantu bos?

kalo bisa langsung ke email aja bos.
np.mizu@gmail.com

herosetyanofario mengatakan... @ 27 Juni 2011 03.15

Salam kenal mas. Mau tanya apakah crystal report 8.5 bisa dijalankan di windows 7? Kalo bisa gimana caranya?

Tks

hendra mengatakan... @ 18 Februari 2012 20.35

crystal report 8.5 bisa dijalankan di windows 7, caranya hampir sama dengan sebelumnya

khepetthea mengatakan... @ 30 April 2012 19.23

kalo di vb.net gimana caranya my brother..??

Unknown mengatakan... @ 23 April 2013 09.21

lam kenal mas...
mau tanya nih : gimana caranya kalo mau buat report dengan CR 8.5 supaya seperti membuat mail merge pada word atau satu data aja yang tampil? mohon pencerahannya......

Anonim mengatakan... @ 25 Juli 2013 19.42

Terima Kasih ya Informasinya Mas....

Anonim mengatakan... @ 3 September 2014 03.35

kalau untuk vb.net scriptnya gmana mas ?

Cheap Tap mengatakan... @ 9 Desember 2014 18.03

It is indeed a wonderful LED taps for you to consider as your daily usage. You will love to enjoy the Shower Taps from then on. It will bring you an all new feeling. As can see that Antique Basin Taps flow decentralizes or sprayed, just spin the button on the head.

Poskan Komentar

Recent Reader

GET UPDATE VIA EMAIL
Dapatkan artikel terbaru langsung ke email anda!