Untitled

Public Sub ImpresioInfVis(ByVal llCodPac As Long)
Dim lrs_Rs As New ADODB.Recordset
Dim ll_I As Long
Dim lv_Bm
mi_Pag = 0
mb_Entra = False
mlCodPac = llCodPac
ms_NomImp = "IInfVis"
gi_ImpCab = 99
Call DefFulla
I.VsPrt.StartDoc
I.VsPrt.PenWidth = 1
I.VsPrt.PageBorder = pbNone
Call Cab2
I.VsPrt.EndDoc
gi_ImpCab = 0
End Sub