Hola!!
No te compliques!!
Crea un Form, dale el formato que quieres y preséntalo, solo tienes que cargar los datos... sigue este ejemplo:
http://www.vb6.us/tutorials/printing-form-visual-basic
Código vb:
Ver originalOption Explicit
Private Sub cmdGENERAR_INFORME()
frmINFORME.Top = (Screen.Height - Me.Height) / 2
frmINFORME.Left = (Screen.Width - Me.Width) / 2
'display date & time
lblDate.Caption = Format$(Date, "dd/MM/yyyy")
lblTime.Caption = Format$(Time, "h:nn AM/PM")
'LOS CAMPOS
lblCOPIAS.CAPTION=frmPRESUPUESTO.txtCOPIAS.TEXT
lblDESCRIPCION.CAPTION=frmPRESUPUESTO.txtDESCRIPCION.TEXT
lblCANTIDADPAPEL.CAPTION=frmPRESUPUESTO.txtPAPELTEXT.TEXT
lblTIEMPO.CAPTION=frmPRESUPUESTO.txtTIEMPO.TEXT
'...
'...
'...
End Sub
Private Sub cmdPrint_Click()
cmdPrint.Visible = False
cmdExit.Visible = False
PrintForm
cmdPrint.Visible = True
cmdExit.Visible = True
End Sub
Private Sub cmdExit_Click()
End
End Sub
Nos cuentas!!