Error 1004 desde la hoja formulario

Que tal tengo el siguiente código vba

Al ejecutarse desde la hoja papeleta no marca error pero al ejecutarlo con call desde la hoja formulario me da error 1004

Public Sub Recibo1()
Worksheets("PAPELETA").Range("imprimirpape").Select
Selection.PrintOut Copies:=2, Collate:=True
Range("imprimirpape").Select
End Sub

Public Sub Papeleta_Click()
Dim movimiento As String
movimiento = InputBox("Tipo de movimiento")
Worksheets("PAPELETA").Range("tmovimiento").Value = movimiento
Call Recibo1
End Sub

1 Respuesta

Respuesta

Si estás en una hoja, no puedes seleccionar el rango de otra hoja.

Intenta lo siguiente, puedes realizar la impresión desde cualquier hoja.

Public Sub Recibo1()
  Dim hoja As String
  Application.ScreenUpdating = False
  hoja = ActiveSheet.Name
  Worksheets("PAPELETA").Select
  Worksheets("PAPELETA").Range("imprimirpape").Select
  Selection.PrintOut Copies:=2, Collate:=True
  Range("imprimirpape").Select
  Sheets(hoja).Select
  Application.ScreenUpdating = True
End Sub
Public Sub Papeleta_Click()
  Dim movimiento As String
  movimiento = InputBox("Tipo de movimiento")
  Worksheets("PAPELETA").Range("tmovimiento").Value = movimiento
  Call Recibo1
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas