Saya tertarik dengan metode seperti ini. Sebenarnya ini adalah solusi yang saya
cari selama ini sebagai alternatif menggantikan CR :D
Saya sudah berhasil mengaplikasikan coding yg bpk berikan ke aplikasi saya.
Terima kasih banyak pak!
Ada satu lagi yang mau saya tanya.
Bagaimana caranya agar report yang sudah dieksport ke excel ini langsung tampil
ke priview-nya?
Saya harap bpk mengerti maksud saya ?
Dari coding yang bpk kasih, itukan reportnya langsung mencetak ke printer.
Bagaimana caranya supaya ada semacam 'print preview' dulu sebelum mencetak ?
Ini nantinya agar user bisa memilih sendiri ke printer mana report tsb mau
dicetak. Seperti di CR gitu hehe..
Memang bisa dengan cara "tidak mencetak langsung" dan "hanya membuka
report.xls"-nya. Tetapi jika memang ada coding untuk "print preview dulu
sebelum mencetak" saya sangat berterima kasih sekali :D
Salam,
Thoyib
----- Original Message -----
From: Bace - Bace
To: Programmer-VB@yahoogroups.com
Sent: Thursday, November 26, 2009 11:52 AM
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.Application")
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
====================
------------------------------------------------------------------------------
From: Jemmy <jemmyteco...@yahoo.com>
To: Programmer-VB@yahoogroups.com
Sent: Wed, November 25, 2009 8:31:06 PM
Subject: Re: [Programmer-VB] report
Menarik, boleh di share tdk tekniknya? Saya tertarik terutama dgn how to
programmatically insert data to excel worksheet or word document, apakah pake
metode insert baris per baris or bagaimana.
Kalo saya pribadi, awal2 masih menggunakan Data Report (yang secara langsung
melatih saya bikin query sql), kemudian belakangan beralih ke Crystal Report
karena kemudahannya.
Thx.
------------------------------------------------------------------------------
From: Bace - Bace <bac...@yahoo. com>
To: Programmer-VB@ yahoogroups. com
Sent: Wed, November 25, 2009 9:18:35 PM
Subject: Re: [Programmer- VB] report
Sebagai saran saja,
klo sy tidak pernah menggunakan rport bawaan vb (karna sangat terbatas
kemampuannya) , ataupun CR ataupun report lainnya (karena harus beli, klien
tidak akan sanggup membelinya).
tetapi sy sellalu menggunakan word dan excel untuk laporan. dengan vb, file
word/excel bisa dibuka dan diisikan data sesuai dengan keinginan klien, lalu
mencetak, tanpa harus membuka word/excel. (jika klien tidak mempunyai progam
word/excel laporan tetap bisa dicetak) . Dan yang lebih menguntungkan engine
word/excel adalah gratis (dapt dipergunakan dengan bebas oleh programer).
Semoga membantu: =(oVo)=
============ ========
BaceInside Publisher
Copyright @2009
Not for reproduced, republished.
Thank You
============ ========
_,_._,___
