Imprimir copias segun valor celda

[ruben]

Estimados, Buenas tardes

Tengo el siguiente Código en VBA para seleccionar impresora distinta a la predeterminada y a su vez imprimir copias según valor de celda CE15, si bien selecciona la impresora, el problema es que solo imprime una copia y no el valor asignado a CE15.

Si alguien me pueda ayudar.

Sub imprimir()

    Sheets("C2t-Small").Select
    ncopias = Hoja1.Range("CE15").Value
    actPrnt = Application.ActivePrinter
    ActiveWindow.SelectedSheets.PrintOut ActivePrinter:="RICOH SP 310DNw PCL 6", Collate:=True
    Sheets("Etique").Select
    Range("CE15").Select
    Range("CE15:CQ19").Select
    ActiveCell.FormulaR1C1 = "0"
End Sub
Sub imprimir1()

    Sheets("B1r-Medium").Select
    ncopias = Hoja1.Range("CE15").Value
    actPrnt = Application.ActivePrinter
    ActiveWindow.SelectedSheets.PrintOut ActivePrinter:="ZDesigner ZM600 200 dpi (ZPL)", Collate:=True
    Sheets("Etique").Select
    Range("CE15").Select
    Range("CE15:CQ19").Select
    ActiveCell.FormulaR1C1 = "0"
End Sub
 

[JSDJSD]

Sub imprimir()
    Dim ncopias As Long
    Dim actPrnt As String
    
    ncopias = ThisWorkbook.Sheets("C2t-Small").Range("CE15").Value
    
    'Verificar si la impresora está disponible
    On Error Resume Next
    Set Printer = Application.Printers("RICOH SP 310DNw PCL 6")
    If Printer Is Nothing Then
        MsgBox "La impresora 'RICOH SP 310DNw PCL 6' no está disponible."
        Exit Sub
    End If
    On Error GoTo 0
    
    'Establecer la impresora activa
    actPrnt = Application.ActivePrinter
    Application.ActivePrinter = "RICOH SP 310DNw PCL 6"
    
    'Imprimir la hoja activa
    ThisWorkbook.ActiveSheet.PrintOut Copies:=ncopias, Collate:=True
    
    'Establecer el rango en cero
    ThisWorkbook.Sheets("Etique").Range("CE15:CQ19").Value = 0
    
    'Restaurar la impresora activa original
    Application.ActivePrinter = actPrnt
End Sub

Prueba y comenta

[ruben]

Hola, gracias por tu respuesta,

Te comento que al dar imprimir me da error (la impresora no está disponible).

Si le doy imprimir sin la macro esta se imprime.