Visual Basic para Aplicaciones - Imprimir copias segun valor celda

Life is soft - evento anual de software empresarial
 
Vista:
sin imagen de perfil

Imprimir copias segun valor celda

Publicado por Ruben (7 intervenciones) el 27/04/2023 14:14:46
Estimados, Buenos dias

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
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Antoni Masana
Val: 1.134
Oro
Ha mantenido su posición en Visual Basic para Aplicaciones (en relación al último mes)
Gráfica de Visual Basic para Aplicaciones

Imprimir copias segun valor celda

Publicado por Antoni Masana (500 intervenciones) el 30/04/2023 14:21:05
Añade esto:

1
2
3
4
5
6
7
8
9
10
Sub imprimir()
    Sheets("C2t-Small").Select
    ncopias = Hoja1.Range("CE15").Value
    actPrnt = Application.ActivePrinter
    ActiveWindow.SelectedSheets.PrintOut ActivePrinter:="RICOH SP 310DNw PCL 6", Copies:=nCopias,  Collate:=True
    Sheets("Etique").Select
    Range("CE15").Select
    Range("CE15:CQ19").Select
    ActiveCell.FormulaR1C1 = "0"
End Sub

Saludos.
\\//_
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar
sin imagen de perfil

Imprimir copias segun valor celda

Publicado por Ruben (7 intervenciones) el 02/05/2023 21:52:49
Hola Antoni,

Muchas gracias por tu repuesta, me funciono a la perfección.

Saludos.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar