Source Code Untuk Mencetak/Print Data dari TDBGrid (Component One) pada VB 6.0

Source Code Untuk Mencetak/Print Data dari TDBGrid (Component One) dengan format kertas landscape :

Private Sub Printer_Click()

With TDBGrid2.PrintInfo

.PageHeaderFont.Bold = True

.PageHeader = Form1.Caption “Rekapan Daftar Nomor Telepon”

.PreviewMaximize = True

.RepeatColumnHeaders = True

.Draft = True

.SettingsOrientation = 2

.PreviewAllowFileOps = True

.PageFooter = “\tPage: \p”

.PageFooterHeight = 2960

.SettingsMarginRight = 110

.SettingsMarginLeft = 100

.SettingsMarginTop = 800

.SettingsMarginBottom = 800

.PrintPreview

End With

End Sub