Aldo Ruiz

Tuve el mismo problema y lo solucione de la siguiente manera Sub ImprimeGastos() x = Application.Dialogs(xlDialogPrinterSetup).Show If x = True Then ActiveWindow.SelectedSheets.PrintOut Copies:=1 ActiveSheet.PageSetup.PrintArea = "$k$1:$Q$103" End If...