Copiar botones de macros de impresión en otras hojas del mismo libro.
Pregunta para Dante Amor.
Buenas noches Dante:
He copiado los 2 botones de impresión de las macros en la hoja del mismo libro que se llama "FICHA" y no funcionan, solo funcionan desde la hoja "COND Y TARIF". ¿Que puedo hacer para imprimir PDF´s o papel desde ambas hojas.
Adjunto código.
Un millón de gracias.
Sub NuevoMetodoImprimir()
Imprimir 1
End Sub
Sub NuevoMetodoPDF()
Imprimir 2
End Sub
Sub Imprimir(salida)
If salida = 2 Then
strImpresoraAnterior = Application.ActivePrinter
Application.ActivePrinter = "PDFCreator en Ne00:"
End If
'
For j = Columns("BB").Column To Columns("BL").Column
If Cells(3, j) Then cad = cad & Cells(5, j) & ", "
Next
If cad <> "" Then
cad = Left(cad, Len(cad) - 2)
Sheets("COND Y TARIF").Range(cad).PrintOut
End If
If salida = 2 Then
Application.ActivePrinter = strImpresoraAnterior
End If
End Sub
1 Respuesta
Respuesta de Dante Amor
1
H o l a:
Si entiendo bien, quieres poner las macros en otra hoja, pero quieres que funcionen en la hoja "", entonces quedaría así:
Sub NuevoMetodoImprimir()
'Por.Dante Amor
Call Imprimir
End Sub
'
Sub NuevoMetodoPDF()
'Por.Dante Amor
strImpresoraAnterior = Application.ActivePrinter
Application.ActivePrinter = "PDFCreator en Ne00:"
Call Imprimir
Application.ActivePrinter = strImpresoraAnterior
End Sub
'
Sub Imprimir()
'Por.Dante Amor
Set h = Sheets("COND Y TARIF")
For j = h.Columns("BB").Column To h.Columns("BL").Column
If h.Cells(3, j) Then cad = cad & h.Cells(5, j) & ", "
Next
If cad <> "" Then
cad = Left(cad, Len(cad) - 2)
h.Range(cad).PrintOut
End If
End Sub':) ':)
