Bueno, tengo una base de datos en el que en un formulario tengo dos botones, uno imprime un informe y otro imprime un informe parecido pero pregunta el número de copias.
Este es el botón de imprimir:
Private Sub Comando126_Click()
On Error GoTo Err_Comando126_Click
DoCmd.OpenReport "ordendetrabajoA", acNormal, , "[orden]=" & Me.[orden]
Exit_Comando126_Click:
Exit Sub
Err_Comando126_Click:
MsgBox Err.Description
Resume Exit_Comando126_Click
End Sub
Y este el de las copias:
Private Sub Comando127_Click()
On Error GoTo Err_Comando127_Click
Dim stDocName As String
Dim NumCopias As Integer
NumCopias = Nz(InputBox("Cuantas copias"), 1)
stDocName = "ordendetrabajoB"
DoCmd.OpenReport stDocName, acViewPreview, , "orden=" & Me.orden
DoCmd.PrintOut acPages, , , , NumCopias
DoCmd.Close acReport, "ordendetrabajoB"
Exit_Comando127_Click:
Exit Sub
Err_Comando127_Click:
MsgBox Err.Description
Resume Exit_Comando127_Click
End Sub
El caso es que a mi me funciona perfectamente, pero a una chica de mi trabajo que se conecta a la misma base de datos, en vez de imprimirle lo que le da es opción a guardarlo como pdf en ambos botones. El del número de copias incluso le pide el número y posteriormente le pide para guardarlo en pdf.
Entonces no se si es porque flogea en alguna parte del código o es problema de su ordenador >.<
