자동출력 VBA - 프린터 설정

프린터 설정에 대하여...

본 코드는 BricsCAD에서 사용중인 코드입니다.  AutoCAD와 다를수 있으니 참고바랍니다.

코드 전체글:  [CAD/VBA] - 자동출력 VBA
이 글은 코드 전체 중 프린터 설정에 대한 부분만 있습니다.

프린터 설정중 수정이 필요하다고 판단되는 부분은 프린터 이름, 플롯 스타일 이름입니다.

프린터

?

230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252

Dim Layout As AcadLayout Set Layout = Doc.ActiveLayout   With Layout .ConfigName = PrntName .StandardScale = acScaleToFit .StyleSheet = "acad.ctb" .PlotWithPlotStyles = True .PlotType = acWindow .PlotRotation = ac90degrees .PlotViewportBorders = False .PlotViewportsFirst = True .CanonicalMediaName = "A4" .PaperUnits = acMillimeters .ShowPlotStyles = False .CenterPlot = True   If PDFPrint Then     .PlotRotation = ac0degrees Else     .PlotRotation = ac90degrees End If End With

• PrntName 

?

160 161 162 163 164 165 166 167 168 169 170 171 172 173

'프린터 이름 Dim PrntName As String   'PDF 출력 Dim PDFPrint As Boolean PDFPrint = True   If PDFPrint Then     'PDF 프린터 이름 설정     PrntName = "PDF.pc3" Else     '프린터 이름 설정     PrntName = "HP LaserJet 5100 Series PCL6.pc3" End If

이름 설정 전 PDFPrint를 체크하는 부분이 있는데 프로그램 테스트 용도로 사용합니다.
코드가 마무리되면 PDFPrint = False로 변경하시면 됩니다.

프린터 이름은 대/소문자 구분하니 정확하게 써주셔야 합니다.

PrntName에 넣을 이름이 헛갈리면 아래 내용을 참고하시기 바랍니다.

1. 프린터 이름으로 사용할 경우

제어판 - 장치 및 프린터 - 프린터 항목의 이름.

2. 플로더 구성파일 이름으로 사용할 경우 

캐드 메뉴 : 파일 - 플로터 관리자 - 사용하는 파일.

여길 클릭하면 아래와 같은 탐색기 창이 하나 나타납니다.

• 플로터 구성파일은 기존 프린터에서 사용자가 설정한 정보를 가진 파일입니다.
  용지 크기 필터링이나 여백등을 설정할 수 있습니다.
• 구분은 아래와 같이 출력 설정창의 아이콘 모양으로 가능합니다.

아래가 구성파일이며 아이콘이 플로터 모양으로 .pc3 란 확장자가 붙어 있습니다.

• 프린터 목록에 구성파일만 표시하고 싶다면 옵션 - 플롯 및 게시 - 시스템 프린터 숨기기를 체크하면 됩니다.

플롯 스타일

?

236	.StyleSheet = "acad.ctb"

사용하는 플롯 스타일이름을 대/소문자 유의하여 넣으시면 됩니다. 

용지 방향

?

239 240 241 242 243 244 245 246 247 248 249 250 251

.PlotRotation = ac90degrees .PlotViewportBorders = False .PlotViewportsFirst = True .CanonicalMediaName = "A4" .PaperUnits = acMillimeters .ShowPlotStyles = False .CenterPlot = True   If PDFPrint Then     .PlotRotation = ac0degrees Else     .PlotRotation = ac90degrees End If

지금보니 239 행은 필요없는 내용입니다.  이번에 코드 수정하면서 이 부분은 수정이 안되었네요.
아래 247 행에서 PDF면 0도 출력, 아니면 90도 출력합니다.
이건 환경에 따라 다르니 맞게 사용하시면 됩니다.

• 242행 용지 크기는 출력 메뉴의 리스트 이름과 똑같아야 합니다.  만약 제가 쓴 용지 이름과 조금이라도 다르다면 대/소문자 잘 구분하여 수정후 사용하시기 바랍니다.

코드 전체글:  [CAD/VBA] - 자동출력 VBA
사용자 변경사항 1. 출력순서 변경
사용자 변경사항 3. 출력 블럭 설정