선택 영역의 PDF 인쇄

[Lubracali]

안녕하세요.

나는 2d에서 일부 요소를 그리는 것을 허용하는 vba userform을 생성한다.

나는 acrobat pro에 의해 생성 된 프린터 "adobe pdf"를 사용하여 pdf에서 수출 할 수있는 버튼을 만들었습니다.

이 코드는

프라이빗 서브 cmdpdf_click()
acadplot로 dim 스탬프
dim nbackgroundplot 로 긴


nbackgroundplot = thisdrawing.getvariable("backgroundplot")

호출 thisdrawing. setvariable("backgroundplot", 0)

set 스탬프 = thisdrawing. 한국어
스탬프.plottodevice (" PDF")

호출 thisdrawing. setvariable("backgroundplot", nbackgroundplot)를 설정


끝 이하

코드 작품, 나는 인쇄 할 수 있지만 문제가 있습니다.

문제는 내가 인쇄 할 수있는이 방법에서, 하지만 인쇄 할 수있는 형식에서 autocad를 결정, 그 (나는 기본 프린터라고 생각합니다).

출력 형식 (i.e. pdf의 형식)을 결정할 수 있으며 인쇄 영역 (선택 인쇄 -> 창 및 직사각형 영역 선택)을 선택할 수 있습니다.

누군가가 나에게 속성 또는 다른 명령을 나타내는 방법을 알고 있다면 그보다는 내가 할 수 있도록 나에게 큰 기쁨을 만들 수 있습니다

 

[marzio30]

안녕하세요.

나는 2d에서 일부 요소를 그리는 것을 허용하는 vba userform을 생성한다.

나는 acrobat pro에 의해 생성 된 프린터 "adobe pdf"를 사용하여 pdf에서 수출 할 수있는 버튼을 만들었습니다.

이 코드는

프라이빗 서브 cmdpdf_click()
acadplot로 dim 스탬프
dim nbackgroundplot 로 긴


nbackgroundplot = thisdrawing.getvariable("backgroundplot")

호출 thisdrawing. setvariable("backgroundplot", 0)

set 스탬프 = thisdrawing. 한국어
스탬프.plottodevice (" PDF")

호출 thisdrawing. setvariable("backgroundplot", nbackgroundplot)를 설정


끝 이하

코드 작품, 나는 인쇄 할 수 있지만 문제가 있습니다.

문제는 내가 인쇄 할 수있는이 방법에서, 하지만 인쇄 할 수있는 형식에서 autocad를 결정, 그 (나는 기본 프린터라고 생각합니다).

출력 형식 (i.e. pdf의 형식)을 결정할 수 있으며 인쇄 영역 (선택 인쇄 -> 창 및 직사각형 영역 선택)을 선택할 수 있습니다.

누군가가 나에게 속성 또는 다른 명령을 나타내는 방법을 알고 있다면 그보다는 내가 할 수 있도록 나에게 큰 기쁨을 만들 수 있습니다

좋은 아침, 나는 또한 같은 상황에서 나는 해결책에 흥미있을 것입니다.
순간에 나는 vba와 excel에서 생산하고 아래에보고.

안녕하세요.

오류는 다음을 다시 시작합니다.

acadapp = 상호 작용을 설정합니다. getobject (, "autocad.application")
'set acadapp = 상호 작용. getobject (, "autocad.application.22")
어떤 신중한 차이 없이 위의 문장

err이면
debug.print "오류" & err.number
디버그.print err.description
debug.print "자동화 시작"

다운로드

acadapp = 새로운 acadapplication 설정
'set acadapp = 상호 작용.createobject("autocad.application.22")
어떤 신중한 차이 없이 위의 문장

'essential 문
acadapp.visible = 사실

err이면
msgbox의 err.description
출구 sub
끝 면
끝 면

debug.print "지금 실행" + acadapp.name + " 버전" + acadapp.version

acaddoc = acadapp.activedocument 설정
만약 acaddoc이 없다면
acaddoc = acadapp.documents.add 설정
끝 면

acaddoc이 있다면. 활동 공간 = 0 그 후
acaddoc.activespace = 1개
끝 면

끝 이하



private 서브 commandbutton8_click()

호출 connect_acad
redim 보존 strartpoint10(0에서 1)
dim pointfinal (0에서 1) 두 배로
dim pointfina2(0 ~ 1) 더블
dim ptconfigs로 acadplotconfigurations
acadplotconfiguration로 디엠 플로트 구성
acadplot로 dim ptobj
dim backplot 와 변형


점선 (0) = strartpoint10(0)
점선(1) = strartpoint10(1) - 29.7
pointfina2(0) = strartpoint10(0) + 42
pointfina2(1) = strartpoint10(1) - 29.7

설정 ptobj = acaddoc.plot
설정 ptconfigs = acaddoc.plotconfigurations
ptconfigs.add "pdf", 거짓
플롯 설정 = ptconfigs.item("pdf")
floatconfig.standardscale = 고급
플로트 구성.refreshplotdeviceinfo

fluteconfig.setwindowtoplot 포인블, pointfina2
fluteconfig.getwindowtoplot 포스피날, pointfina2
floatconfig.configname = "dwg에 PDF.pc3"
'plotconfig.stylesheet = "monochrome.ctb"를
'plotconfig.centerplot = true로

플로트 구성.refreshplotdeviceinfo
floatconfig.plottype = acwindows의
floatconfig.canonicalmedianame = "iso_a3_(420.00_x_297.00_mm)"
플로트 구성.refreshplotdeviceinfo

ptobj.plottofile(replace(acaddoc.fullname, "dwg", "pdf"), 플로트config.configname)이 있는 경우
msgbox "pdf 크레아토"
이름 *
msgbox "pdf 비 creato"
끝 면
ptconfigs.item("pdf"). 기타 제품
플롯 구성 = 아무것도

끝 이하