Imprimir respetando margenes y elegir entre color y blanco y negro

Cuento con dos macros para imprimir preguntándome si imprime a color o blanco y negro y otra macro para establecer los margenes de impresión, quisiera saber como unir las dos macros. Esta macro para preguntar el color de impresión.

Function PrintWithColourCheck6b()

Dim i As Long

With ActiveSheet
ActiveSheet.Unprotect ("Dr4gOnni?e01(*_0?)x/[email protected][email protected]#=)$#LFMAO")

.PageSetup.BlackAndWhite = _
MsgBox("¿Desea imprimir a Color?, Seleccione SI Para imprimir COLOR y NO para imprimir a BLANCO y NEGRO", _
vbYesNo, "Impresion") = vbNo

.PrintOut From:=1, To:=50, Copies:=1, Collate:=True

.PageSetup.BlackAndWhite = False

ActiveSheet.Protect ("Dr4gOnni?e01(*_0?)x/[email protected][email protected]#=)$#LFMAO")
End With

End Function

y esta otra para para establecer los margenes de impresionSub ConfHoja()
M_Izq = 1
M_Der = 0.5
M_Sup = 1.5
M_Inf = 0.7
'Orientación de Hoja
With ActiveSheet.PageSetup
If .Orientation = xlPortrait Then
.Orientation = xlLandscape
Else
.Orientation = xlPortrait
End If
'Configuración de márgenes:
.LeftMargin = Application.CentimetersToPoints(M_Izq)
.RightMargin = Application.CentimetersToPoints(M_Der)
.TopMargin = Application.CentimetersToPoints(M_Sup)
.BottomMargin = Application.CentimetersToPoints(M_Inf)
End With
End SubGracias a todos por su tiempo

1

1 respuesta

Respuesta
1

No se si esta solución te sirve. Podrías llamar la segunda macro desde el código de la primera de la siguiente forma:

call ConfHoja

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas