Private Sub Command2_Click()
' vbPRPSLetter 1 글자, 8 1/2 x 11 인치.
' vbPRPSLetterSmall 2 글자 작음, 8 1/2 x 11인치
' vbPRPSTabloid 3 타블로이드, 11 x 17인치
' vbPRPSLedger 4 Ledger, 17 x 11인치
' vbPRPSLegal 5 Legal, 8 1/2 x 14인치
' vbPRPSStatement 6 성명서, 5 1/2 x 8 1/2인치
' vbPRPSExecutive 7 Executive, 7 1/2 x 10 1/ 2인치
' vbPRPSA3 8 A3, 297 x 420mm
' vbPRPSA4 9 A4, 210 x 297mm
' vbPRPSA4소형 10 A4 소형, 210 x 297mm
' vbPRPSA5 11 A5, 148 x 210mm
' vbPRPSB4 12 B4, 250 x 354mm
' vbPRPSB5 13 B5, 182 x 257mm
' vbPRPSFolio 14 폴리오, 8 1/2 x 13인치.
' vbPRPSQuarto 15 Quarto, 215 x 275mm
' vbPRPS10x14 16 10 x 14인치 .
' vbPRPS11x17 17 11 x 17인치.
' vbPRPSNote 18 참고, 8 1/2 x 11인치.
' vbPRPSEnv9 19 봉투 #9, 3 7/8 x 8 7/8인치
' vbPRPSEnv10 20 봉투 #10, 4 1/8 x 9 1/2인치
' vbPRPSEnv11 21 봉투 #11, 4 1/2 x 10 3/8인치
' vbPRPSEnv12 22 봉투 #12, 4 1/
2 x 11인치
' vbPRPSEnv14 23 봉투 #14, 5 x 11 1/2인치
' vbPRPSCSheet 24 C 크기 시트
' vbPRPSDSheet 25 D 사이즈 시트
' vbPRPSESheet 26 E 사이즈 시트
' vbPRPSEnvDL 27 봉투 DL, 110 x 220mm
' vbPRPSEnvC3 29 봉투 C3, 324 x 458mm
' vbPRPSEnvC4 30 봉투 C4, 229 x 324mm
' vbPRPSEnvC5 28 봉투 C5, 162 x 229mm
' vbPRPSEnvC6 31 봉투 C6, 114 x 162 mm
' vbPRPSEnvC65 32 봉투 C65, 114 x 229mm
' vbPRPSEnvB4 33 봉투 B4, 250 x 353mm
' vbPRPSEnvB5 34 봉투 B5, 176 x 250mm
' vbPRPSEnvB6 35 봉투 B6, 176 x 125mm
' vbPRPSEnvItaly 36 봉투, 110 x 230mm
' vbPRPSEnvMonarch 37 봉투 Monarch, 3 7 /8 x 7 1/2인치
' vbPRPSEnvPersonal 38 봉투, 3 5/8 x 6 1/2인치
' vbPRPSFanfoldUS 39 미국 표준 팬폴드, 14 7/8 x 11인치
' vbPRPSFanfoldStdGerman 40 독일 표준 팬폴드, 8 1/2 x 12인치
' vbPRPSFanfoldLglGerman 41 독일 법률 팬폴드, 8 1/2 x 13인치
p> p>' vbPRPSUser 256 사용자 정의
'Printer.PaperSize를 v로 설정하는 경우
bPRPSUser는 "사용자 정의" 용지를 사용한다는 의미이며 용지 크기는 프린터의 높이 및 너비 속성에 따라 결정됩니다. 프린터 높이 및 너비 속성을 설정하면 PaperSize가 자동으로 vbPRPSUser로 설정됩니다.
Dim s1 As String
Dim s2 As String
Dim i As Integer
With Printer
. ScaleMode = 6'mm
.PaperSize = vbPRPSUser
.Width = 100
.Height = 60
.ScaleMode = 1 ' Tip
s1 = "안녕하세요 세계"
.FontBold = True
.FontSize = 18
.CurrentX = (.Width - .TextWidth("s1")) / 2
.CurrentY = 2 * 567
Printer.Print s1
.FontBold = False
.FontSize = 10
.CurrentY = .CurrentY 1 * 567
i = 0 ~ 9
.CurrentX = 2 * 567
p>s1 = "Field" & i & "=Result" & i
Printer.Print s1
다음 i
EndDoc
끝
Sub 끝