Me imprime dos veces con este código

Private Sub CommandButton2_Click()
On Error GoTo Problema
 If Application.Dialogs(xlDialogPrint).Show = True Then
 ActiveSheet.PageSetup.PrintArea = "$a$1:$i$35"
 ActiveWindow.SelectedSheets.PrintOut Copies:=1
 Else
 Exit Sub
 End If
Problema:
If Err.Number = 1004 Then
MsgBox " No a seleccionado impresora", vbCritical, "Error"
Exit Sub
End If
End Sub

1 respuesta

Respuesta
1

Solucionado, sobraba esta línea:

ActiveWindow.SelectedSheets.PrintOut Copies:=1

Añade tu respuesta

Haz clic para o
El autor de la pregunta ya no la sigue por lo que es posible que no reciba tu respuesta.

Más respuestas relacionadas