Imprimir registro actual.

[edrec]

Hola a todos.
Estoy haciendo un programa de facturación.
Este programa está conectado a una BD access 2003.
Quisiera que estando en el registro actual poder imprimir solo este registro.
Cómo puedo hacerlo?
Gracias de antemano.

[seba123neo]

Hola,pues podes pasar los datos de ese registro a un reporte(datareport) y ahi lo imprimis como quieras....

saludos.

[MaximoAntonio2004]

1.- Primero deberas de Crear un Reporte con el DataReport
2.-por codigo deberas mandarle los valores al reporte...esta es una forma pero existen otrtas formas mas sencillas

este es el codigo:

Set RptKardex.DataSource = rsKardex
With RptKardex
.Sections("CAB").Controls("lblusuario").Caption = Gsuc & " - " & GUsuario
.Sections("cab").Controls("lblempresa").Caption = Gempresa
.Sections("cab").Controls("lblCodArt").Caption = txtcodart.Text

.Sections("DET").Controls("txtF").DataField = rsKardex.Fields("fecha").Name
.Sections("DET").Controls("txtN").DataField = rsKardex.Fields("sucursalXCliente").Name
.Sections("DET").Controls("txtA").DataField = rsKardex.Fields("articulos").Name
.Sections("DET").Controls("txtC1").DataField = rsKardex.Fields("cantidad").Name
.Sections("DET").Controls("txtP1").DataField = rsKardex.Fields("piezas").Name
.Sections("DET").Controls("txtC2").DataField = rsKardex.Fields("cantida").Name
.Sections("DET").Controls("txtP2").DataField = rsKardex.Fields("pieza").Name
.Sections("DET").Controls("txtS").DataField = rsKardex.Fields("stock").Name
.Sections("DET").Controls("txtp").DataField = rsKardex.Fields("sp").Name

.Sections("PIE").Controls("lblTC1").Caption = tc1
.Sections("PIE").Controls("lblTP1").Caption = tp1
.Sections("PIE").Controls("lblTC2").Caption = tc2
.Sections("PIE").Controls("lblTp2").Caption = tp2

.Show vbModal
'.PrintReport False, rptRangeAllPages
End With

[edrec]

Gracias MaximoAntonio2004, probaré de esta forma cuando pueda, ya que estoy muy liado.
Un saludo y gracias.