JPEG를 PDF로 인쇄하고 용지 크기를 설정하십시오.

Question

VBA를 사용하여 주어진 JPEG (또는 GIF 또는 BMP)에 대해 PDF로 인쇄하고 인쇄하기 전에 페이지 크기를 설정하고 싶습니다. 나는 인쇄 할 다른 몇 가지 방법을 검토 한 결과,하지만 그들 중 아무도 내가 원하는 걸 할 수있을 것 같다 : 다음 PDDoc.Save()을

• 는 AVDoc.Open(), AVDoc.GetPDDoc()를 호출 애크로뱃 SDK를 사용하여 : PDF 인쇄 드라이버로 프린터를 설정하는 SetDefaultPrinter을 사용하여,이 방법을

• 선언 WinAPI를 기능 SetDefaultPrinter 및 ShellExecute를 사용하여 페이지 크기를 선택할 수 없습니다, 다음 ShellExecute(1,"print",filepath,"",rootdirectory,1) 전화 : 난과 페이지 크기를 설정하는 방법을 발견하지 않았습니다 이 만난 사람 hod 중 어느 하나

페이지 크기는 Office 문서 개체와 관련된 방법을 사용하여 설정할 수 있습니다. Worksheet.PageSetup.PaperSize = xlPaper11x17이지만이 옵션은 해당 개체의 페이지 크기 만 설정하고 인쇄 할 JPEG는 설정하지 않습니다.

Answer 1

Excel 통합 문서로 가져 와서 인쇄 할 수 있습니다. 다음은 기초적인 예입니다

Dim ws As Worksheet 
Dim pic As Picture 

Set ws = ActiveSheet 
ws.PageSetup.PaperSize = xlPaperA4 
'Can also specify margins, etc. 

ws.Range("A1").Activate 
Set pic = ws.Pictures.Insert("C:\mypic.jpg") 
'Set picture size. 
With pic.ShapeRange 
    .LockAspectRatio = msoFalse 
    .Height = Application.CentimetersToPoints(20) 
    .Width = Application.CentimetersToPoints(15) 
    'Or you could match the size to the paper margins from above. 
End With 

ws.ExportAsFixedFormat Type:=xlTypePDF, _ 
    Filename:="C:\mypic.pdf", OpenAfterPublish:=True 

2010 년