Bueno quiero imprimir una lista pero lo que necesito por ahora es imprimir un recorset igual a esta
imagen.
El codigo que tengo es este, se manejar un poco el objeto printer pero me atasque con esto, quiero hacer lo mismo de imagen, pero los campos codprod y precioVenta quedan juntos en una misma fila y las cabeceras esta descuadradas(podria usar currentx y currentY pero seria mucho trabajo y repetir las cordenadas muchas veces), para separarlas intente separar con espacios en blanco pero debe haber otra forma
Código:
Printer.Print "Descripción" & " " & "Precio"
Lo mismo hize con el rsTemporal
Código:
Private Sub cmdImprimir_Click()
Printer.Print
Printer.CurrentX = 800
Printer.Print "Descripción" & " " & "Precio"
Printer.Print
rsTemporal.MoveFirst
Do Until rsTemporal.EOF
With rsTemporal
Printer.CurrentX = 800
Printer.Print .Fields("nomprod") & " " & .Fields("precioventa")
End With
rsTemporal.MoveNext
Loop
Printer.EndDoc
End Sub