Visual Basic - Error al Imprimir FlexGrid VB6

Dim objPrinterFlex As PrinterFlex

Private Sub Command1_Click()
If CboBanco.Text = "" Then
Mensaje = MsgBox("Ingrese Nombre Del Banco", vbCritical, "Error al Imprimir")
Else
With objPrinterFlex
x = Month(Date)
If x < 10 Then
x = "0" & x
End If
'Asignamos los valores de los encabezados, el pie de página, el color_
'del texto y el tamaño de la fuente

'texto de los encabezdos y el pir de pagina
.TextEncabezado1 = "Informe Transacciones Mensuales Banco: " & CboBanco.Text & ""
'"Desde: 01/" & x & "/" & Year(Date) & "Hasta: 01/" & x & "/" & Year(Date)
'.TextEncabezado2 = "Desde: " & "#" & Format(Fi, "MM/dd/yyyy") & "#" & "Hasta: " & "#" & Format(Ff, "MM/dd/yyyy") & "#"
.TextEncabezado2 = "Desde: " & FI & " Hasta: " & FF
Debug.Print objPrinterFlex.TextEncabezado2
.TextPiePagina = "Lamparas Chile Ltda." & vbTab & Date
Debug.Print objPrinterFlex.TextPiePagina

'Colores de la fuentes
.ColorPiePagina = vbBlue
.ColorEncabezado1 = vbBlue
.ColorEncabezado2 = vbBlack

'Tamaños de las fuentes
.SizeEncabezado1 = 14
.SizeEncabezado2 = 12
.SizePiePagina = 12
.AjustarColumnas = False

'Imprimimos pasando el nombre del FlexGrid a imprimir
.ImprimirFlexGrid GrillaIngreso
End With
End If

End Sub

en la primera linea del With

justo debajo del primer END IF

[b] .TextEncabezado1 = "Informe Transacciones Mensuales Banco: " & CboBanco.Text & "" [/b]

en esa linea cae el error.

y el codigo toma como referencia una DLL

Si no creas una instancia es medio dificil que funcione.

set objPrinterFlex = new PrinterFlex

saludos

muxas gracias, tienes toda la razon.

ojala alguien mas le sirva este codigo, xauu