|
|
|
|
|
|
옵션버튼을 OptB1과 OptB2 두개로 만들어
옵션1은 전체인쇄
옵션2는 2개의 텍스트 박스에 입력받은 페이지로 인쇄를 하고 싶습니다.
Private Sub CmdB1_Click()
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim n As Integer
TxtB1.Text = Worksheets(1).Range("A1")
TxtB2.Text = Worksheets(1).Range("A2")
j = Application.WorksheetFunction.CountA(Worksheets(1).Columns(1)) - 5
Worksheets(1).Range("A1") = n
Worksheets(1).Range("A2") = k
If OptB1.Value = True Then
For i = 1 To j Step 2
Sheets("sheet1").PrintOut Copies:=1, Collate:=True
Next i
Else
For i = n To k Step 2
Worksheets(1).Range("A1") = i
Sheets("sheet1").PrintOut Copies:=1, Collate:=True
Next i
End If
End Sub
도와주세요
|
|
[불량 게시물 신고] |
|
|
|
작성일 : 2003-07-23(11:41)
최종수정일 : 2003-07-23(11:41) |
|
|
|