Como agregar macro para imprimir
Hola quería saber como hacer para que mi macro que me da a guardar me permita enviar a impresión con una impresora predeterminada aquí mi macro
Sub guardar()
Sheets("pedido").Range("ba4") = Sheets("pedido").Range("ba4") + 1
Range("AX6").Value = Date
carpeta = "d:\Desktop\pedidos\"
archivo = Range("AD9")
ActiveWorkbook.SaveAs Filename:=carpeta & "PEDIDO" & " " & archivo & " " & Format(Date, "DD-MM-YYYY") & ".xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _ ReadOnlyRecommended:=False, CreateBackup:=False
End Sub
saludos
Con estas instrucciones puedes enviar a imprimir
Para enviar a imprimir a la impresora default
Sub Macro1()
'
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub
o esta para poner le nombre de una impresora
Sub Macro2()
'
Application.ActivePrinter = "Samsung ML-1640 Series en Ne00:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"Samsung ML-1640 Series en Ne00:", Collate:=True
End Sub
O con esta también envías a imprimir
Sub imprimir()
ExecuteExcel4Macro "PRINT()"
End Sub
Agrega cualquiera de las 3 al final de tu código.
Saludos. Dam
Si es lo que necesitas.
