sederhananya memang memasukkan satu persatu datanya, tetapi jika sudah mahir, nanti bisa digabung dengan database, sehingga tidak ada batasan dalam membuat report. Kecepatan mencetak report juga tidak terasa, karena hanya memerlukan waktu 1 detik untuk mengisi semua baris dan kolom untuk ukuran kertas legal (sekitar 25 kolom 60 baris) terisi semua.
dan lebih hebatnya, dengan trik sedikit, dari file xls dapat di ekspor lgsng ke file pdf, sehingga klien tidak harus mencetak ke kertas, tetapi juga bisa mencetak ke file pdf. Semoga membantu: =(oVo)= ==================== BaceInside Publisher Copyright @2009 Not for reproduced, republished. Thank You ==================== ________________________________ From: Jemmy <[email protected]> To: [email protected] Sent: Fri, November 27, 2009 6:33:21 PM Subject: Re: [Programmer-VB] report dengan microsof excel Kalo dari sampel code yg diberikan, saya simpulkan main full coding ya, kemudian datanya di-insert satu per satu ya? Kalo begitu apa gak lambat kalo banyak data yang ingin ditampilkan pada reportnya? Thx. ________________________________ From: Bace - Bace <bac...@yahoo. com> To: Programmer-VB@ yahoogroups. com Sent: Thu, November 26, 2009 12:52:12 PM Subject: Re: [Programmer- VB] report dengan microsof excel berikut salah satu teknik untuk membuka dan mengisi file xls Private Sub Command1_Click( ) ' On Error Resume Next Dim NamaFile Dim strBackupFile As String Dim bytes() As Byte Dim file_name As String Dim file_num As Integer Dim file_length As Long Dim num_blocks As Long Dim left_over As Long Dim block_num As Long Dim hgt As Single 'buka file xls sebagai template 'pastikan di drive c: ada direktori FileXLS 'pastikan ada file xls dengan nama file1.xls 'ukuran kertas file file1.xls dapat diset sendiri dengan microsoft excel. 'semua format dan fungsi excel dapat dibuat sendiri (tabel, huruf bold, miring, dll) 'pada koding hanya mengisi text saja. 'untuk membuat objek excel 'pastikan referensi dll Microsoft excel 11.0 Objek Library dicentang (engine excel 2003), tergantung excel yang terinsatal di komputer anda ' Set W = CreateObject( "excel.Applicati on") W.Visible = False 'buka file yang ada didirektoriC: \FileXlS\ File1.xls W.Workbooks. Open FileName:="C: \FileXlS\ File1.xls" 'isi data yang dikenendaki 'isi data baris 1 kolom 2 W.Cells(1, 2).Formula = "Testing data" 'isi data baris 2 kolom 3 W.Cells(2, 2).Formula = "data 1" 'mencetak file1.xls langsung keprinter, hilangkan tanda ' , jangan lupa member tanda ' pada bagian membuka dengan microsoft excel ' W.Save ' W.ActivePrinter = "nama printer komputer" ' W.ActiveWindow. SelectedSheets. PrintOut Copies:=1, ActivePrinter: = _ ' "nama printer komputer", Collate:=True ' W.Workbooks. Close 'membuka buka dgn excel, jika tidak di print W.Visible = True End Sub j Semoga membantu: =(oVo)= ============ ======== BaceInside Publisher Copyright @2009 Not for reproduced, republished. Thank You ============ ======== _
