amigo si quieres imprimir con print en vB debes hacerlo de una forma parecida a C++ le das la ubicacion de la columnas con X, Y
ejemplo de impresion de una factura
Case Is = "ImpFac"
Printer.ScaleMode = 4
Printer.Font = "Courier New"
Printer.FontSize = 11
linea = 0
rute = Trim(txtrut) & "-" & ldigito.Caption
contadorlinea = 31
Printer.CurrentX = 21
Printer.CurrentY = 20
Printer.Print Text3.Text
Printer.CurrentX = 21
Printer.CurrentY = 22
Printer.Print Text4.Text
Printer.CurrentX = 21
Printer.CurrentY = 23
Printer.Print Text7.Text
Printer.CurrentX = 78
Printer.CurrentY = 20
Printer.Print Text2.Text
Printer.CurrentX = 21
Printer.CurrentY = 24
Printer.Print rute
Printer.CurrentX = 21
Printer.CurrentY = 25
Printer.Print Text6.Text
With GRILLA
Do Until .Text = ""
contadorlinea = contadorlinea + 1
linea = linea + 1
.Row = linea
Printer.CurrentX = 12 ' columna
Printer.CurrentY = contadorlinea ' fila
.Col = 2: Printer.Print .Text
Printer.CurrentX = 18 ' columna
Printer.CurrentY = contadorlinea ' fila
.Col = 3: Printer.Print .Text
Printer.CurrentX = 65 ' columna
Printer.CurrentY = contadorlinea ' fila
.Col = 4: Printer.Print Format$(.Text, "$ &&&.&&&")
Printer.CurrentX = 80 ' columna
Printer.CurrentY = contadorlinea ' fila
.Col = 5: Printer.Print Format$(.Text, "$ &&&.&&&")
Loop
End With
Printer.CurrentX = 80
Printer.CurrentY = 58
Printer.Print Format$(Text10, "$ &&&.&&&.&&&")
Printer.CurrentX = 68
Printer.CurrentY = 59
Printer.Print "19 %" ------------> el iva
Printer.CurrentX = 80
Printer.CurrentY = 59
Printer.Print Format$(Text11, "$ &&&.&&&.&&&")
Printer.CurrentX = 80
Printer.CurrentY = 60
Printer.Print Format$(Text12, "$ &&&.&&&.&&&")
Printer.EndDoc
MsgBox "Listado emitido...", 64, "AVISO"
si te das cuenta estoy extrayendo datos tanto como de un flexygrid como de unos textos y tambien posiciono el iva en 19% como se ve mas arriba.
El problema con esto es que estay todo el rato tratando de cuadrar la en este caso q es el formato de una factura.
la otra forma es q envies todo a un reporte aqui te dejo el link del guille donde sale una buena explicacion y un ejemplo de un report managent en VB6
Necesitas ser usuario para ver los enlaces
Crear Usuario Hacer Sesiontienes q bajar la libreria pero ahi te deja el link para el ocx y el programa completo para realizar los reportes
espero q te sirva
see you later
Autor