Hola, estoy perdido y necesito ayuda
tengo una aplicación access con tablas vinculadas a SQL Server.,
En la base de datos acces puedo hacer consultas mediante formularios e imprimir un pequeño informe con los datos de la consulta.
Una vez obtenido el registro buscado, dándole a un botón se imprime directamente en la impresora predeterminada. Yo necesito que al presionar sobre el botón pueda seleccionar la impresora desde la ventana de windows de impresoras-
¿cómolo hago?
Os pego el código del botón que actuualmente permite imprimir directamente, ¿que cambios debo hacer en el?
Sub Comando2_Click()
On Error GoTo Err_Comando2_Click
Dim stDocName As String
Dim stLinkCriteria As String
stLinkCriteria = "[Id]=" & "'" & Me![Lista0] & "'"
If Carta = False Then
If Modificar = True Then
Select Case Val(Forms![Opciones]![Grupo de Opciones])
Case 1
stDocName = "Obras 1"
Case 9
stDocName = "Otras 2"
End Select
End If
DoCmd.OpenForm stDocName, , , stLinkCriteria
Else
If Val(Forms![Opciones2]![Grupo de Opciones]) = 2 Then
stDocName = "Eti"
End If
If Val(Forms![Opciones2]![Grupo de Opciones]) = 1 Then
stDocName = "Fic"
End If
If Val(Forms![Opciones2]![Grupo de Opciones]) = 3 Then
stDocName = "Rep"
End If
If Val(Forms![Opciones2]![Grupo de Opciones]) = 6 Then
stDocName = "Nota"
End If
DoCmd.OpenReport stDocName, acNormal, , stLinkCriteria
End If
Exit_Comando2_Click:
Exit Sub
Err_Comando2_Click:
MsgBox Err.Description
Resume Exit_Comando2_Click
End Sub
