guardar pdf y excell al mismo tiempo
Publicado por unicornio (10 intervenciones) el 06/01/2016 19:54:56
Tengo una macro que he armado de varios sitios y adaptandola, no manejo macro ni nada por el estilo todo fue por instinto, por lo que no se que pasa con esta macro, ya que al proteger la hoja "Imprimir" guarda el arrchivo si pero se queda colgado, y cuando intento abrir el archivo guardado, me sale error que no tienen el formato y la extencion no coinciden. podrian ayudarme con esto
Les paso la macro y el archivo adjunto
Les paso la macro y el archivo adjunto
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub Imprimir_Click()
Sheets("IMPRIMIR").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("IMPRIMIR").Range("B1:N82").Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\#CEsteves\Documentos CEsteves\Inspecciones de Hojalata\" & Range("k7") & " " & Range("e9") & " " & Range("f9") & " " & Range("g9") & " " & Range("h9") & " " & Range("k9") & " " & Range("k11").Value, Quality:= _
xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
MsgBox "Listo.Se Guardo en PDF", vbInformation
Sheets("IMPRIMIR").Copy
Cells.SelectSelection.CopySelection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
ActiveWorkbook.SaveAs Filename:="D:\#CEsteves\Documentos CEsteves\Inspecciones de Hojalata\" & Range("k7") & " " & Range("e9") & " " & Range("f9") & " " & Range("g9") & " " & Range("h9") & " " & Range("k9") & " " & Range("k11") & ".xls"
MsgBox "Listo.Se Guardo en excell", vbInformation
ActiveWorkbook.CloseEnd Sub
Valora esta pregunta
0
