Macro para imprimir en pdf excel
Tengo una macro que me ayudastes a crear y esta no me funciona, cambie de computadora y ahora no se ejecuta me sale un error es 1004 en tiempo de ejecucion, no se ha guardado el documento este abierto o que se ha producido un error al guardar,
Esta fue la macro que me ayudaron a crear
ChDir "C:\Usuarios\gic\escritorio\1.-Consultoria Laboral\14-100"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Usuarios\gic\escritorio\1.-Consultoria Laboral\14-100\prueba pdf.pdf" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False
ActiveWorkbook.Save
ActiveWorkbook.SaveAs Filename:= _
"C:\Usuarios\gic\escritorio\1.-Consultoria Laboral\14-100\14 100 FORMATO IVSS ACTUALIZADO blanco dam.xlsm" _
, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
ActiveWorkbook.Save
ActiveWorkbook.Save
Workbooks.Open Filename:= _
"C:\Usuarios\gic\escritorio\1.-Consultoria Laboral\14-100\14 100 FORMATO IVSS ACTUALIZADO blanco.xlsm"
ActiveWindow.Close
ActiveWorkbook.Save
Windows("14 100 FORMATO IVSS ACTUALIZADO blanco.xlsm").Activate
Esta fue la macro que trate de copiar en un nuevo archivo con otra computadora
ChDir "C:\Users\Usuario\Documents\Mis documentos\2.-Personal\Otros"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\Usuario\Documents\Mis documentos\2.-Personal\Otros\prueba pdf.pdf" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False
ActiveWorkbook.Save
ActiveWorkbook.SaveAs Filename:= _
"C:\Users\Usuario\Documents\Mis documentos\2.-Personal\Otros\semana.xlsm" _
, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
ActiveWorkbook.Save
ActiveWorkbook.Save
Workbooks.Open Filename:= _
"C:\Users\Usuario\Documents\Mis documentos\2.-Personal\Otros\semana.xlsm"
ActiveWindow. Close
ActiveWorkbook. Sabe
Windows("semana blanco.xlsm").Activate
End Sub
