0
이전에 작동 한 코드 조각이 매우 이상하게 발생했습니다 (here a while ago).Excel에서 PDF로 인쇄 - 오류 코드가 반환되지 않고 작동하지 않습니다.
이 코드는 인쇄 영역 안의 시트 부분을 PDF 파일로 저장합니다. 그러나 동일한 Excel 파일의 다른 모듈에서 코드를 변경 한 후에는이 코드가 더 이상 실행되지 않고 오류 메시지가 전혀 반환되지 않습니다.
누군가 컴퓨터에서 해당 코드를 테스트하여 작동하는지 또는 적어도 오류를 반환하는지 여부를 알려주는 것이 좋을 것입니다. 코드는 아래와 같습니다. 필요한 경우 파일의 다른 모듈과 스크린 샷에서 더 많은 코드를 제공 할 수 있습니다. 당신의 도움에 많은 감사드립니다!
Sub Invoice_to_PDF()
'Saves the invoice print area to a PDF file
Dim fp As String
Dim wb As Workbook
Dim ws As Worksheet
fp = "C:\Users\Matthias\Desktop\NewInvoice.pdf"
Set wb = ActiveWorkbook
Set ws = Worksheets("Invoice")
ws.ExportAsFixedFormat Type:=xlTypePDF, Filename:=fp, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
End Sub
적은 또는 다른 특성을 ExportAsFixedFormat 메서드에 적용 해 보았습니까? 이 기능을 직접 실행하기 전에 직접 PrintArea를 수동으로 설정하면 작동합니까? 최근에 PDF 추가 기능을 설치/제거 했습니까? –
답장을 보내 주셔서 감사합니다. 나는 일부 속성을 가지고 놀았고 수동으로 인쇄 영역을 설정했습니다. 나는 PDF 추가 기능을 설치하거나 제거하지 않았다. 지금 코드를 실행할 때 아무 것도하지 않습니다. 이상한 점 : 친구의 컴퓨터에서 런타임 오류 1001 (?)이 발생했기 때문에 Excel 버전 (Mac 2011) 또는 프린터 설정과 관련이있을 수 있습니다 ...? – Matthias
함수의 시작 부분에 중단 점을 놓은 다음 단계별로 (F8) 시도 했습니까? 이렇게하려면 실행을 일시 중지 할 행의 여백을 클릭하십시오 (또는 행을 클릭하고 F9를 누르십시오). 실행이 중단되는 행은 무엇입니까? –