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

15.775 pts. Si estas tratando siempre de ser normal, nunca sabrás...

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