imprimir registro seleccionado desde vista previa
Publicado por Jonathan (1 intervención) el 22/12/2017 14:13:06
buenos días tengo este formulario de impresión
y en el botón de vista previa este código:
cuando estoy en el formulario y doy vista previa no me muestra el registro actual si no que me muestra todos. y quiero que solo me muestre el registro que selecciono. para luego poderlo imprimir con el boton de impresion.
y en el botón de vista previa este código:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Private Sub cmdPreview_Click()
Dim prt As Printer
'On Error GoTo err_PrintOut
Set prt = Application.Printers(Me!cmbPrinter.Value)
'prt.PaperSize = Me!cmbPaperSize
prt.PaperSize = 1
prt.Orientation = Me!opgOrientation
DoCmd.Close acReport, Me!lbxSelectReport
'DoCmd.OpenReport Me!lbxSelectReport, acViewPreview, , "Id_inventario='" & Me.cedmiembro & "'"
DoCmd.OpenReport Me!lbxSelectReport, acViewPreview, , "Id_inventario=" & Me.cedmiembro
Reports(Me!lbxSelectReport).Printer = prt
Exit Sub
err_PrintOut:MsgBox "Se ha producido el error " & Err.Number _
& vbCrLf & Err.Description
End Sub
cuando estoy en el formulario y doy vista previa no me muestra el registro actual si no que me muestra todos. y quiero que solo me muestre el registro que selecciono. para luego poderlo imprimir con el boton de impresion.
Valora esta pregunta
0