2013-10-24 5 views
0

안녕하세요 여러분, 저는 pdfs를 인쇄하는 매크로를 만들려고합니다. 파일 이름을 시트 이름에 따라 만드는 것과 함께 파일 경로 위치가 문제가되는 PDF 작성이 있습니다. 파일 경로에 대한 코딩이 꺼져 있다고 생각합니다. 어쩌면 견적이 잘못되었을 수도 있습니다. 궁극적으로 이것은 반복 될 것입니다.하지만 일단 파일 위치 상황이 고정 될 것입니다.PDF 파일 이름을 파일 이름과 함께 인쇄하십시오.

Sub PrintCoverSheets() 
' 
' PrintCoverSheets 
' 
' 
fName = Replace(ActiveSheet.Name, " ", "") 
ActiveSheet.ExportAsFixedFormat xlTypePDF, ThisWorkbook.Path "\" & " fName" & " cover", xlQualityStandard, , , , , False 
Selection.EntireColumn.Hidden = False 

End Sub 

답변

0

대체 :

ThisWorkbook.Path "\" 

ThisWorkbook.Path & "\"