Sub 인쇄하기()
Dim J As Integer
J = InputBox("몇장인쇄 할까요?")
For J = 1 To J
Worksheets(2).Range("A1") = Worksheets(1).Cells(2 * J, 2)
Worksheets(2).Range("A3") = Worksheets(1).Cells(2 * J + 1, 2)
ActiveWindow.SelectedSheets.PrintOut
Next
End Sub
제목 | 날짜 | ||
---|---|---|---|
443 | 원격컴퓨터소리 | 5251 | 2008/08/21 |
442 | Microsoftp RDP Audio Driver [1] | 5781 | 2008/08/21 |
441 | xp 공유 안될 때 [1] | 5758 | 2008/08/27 |
440 | 사운드카드 확인 [2] | 8564 | 2008/08/28 |
439 | C-Media CMI8738/C3DX PCI Audio Device v5.12.1.646 Driver [1] | 9478 | 2008/08/28 |
438 | [윈도우] 윈도우 복구 콘솔세상풍경 | 10401 | 2008/08/30 |
437 | [윈도우] 윈도우 복구 콘솔 명령어 리스트 | 13915 | 2008/08/30 |
436 | 메인보드 전원 케이블 연결 | 5979 | 2008/08/30 |
435 | [윈도우] 복구콘솔 사용법 | 10008 | 2008/08/30 |
434 | [윈도우] 복구 콘솔을 하드에 설치하는 방법 | 11079 | 2008/08/30 |
433 | 부팅 시 ntoskrnl.exe 에러 메시지가 발생을 했을 때 해결 방안 | 8034 | 2008/08/30 |
432 | REMOTE VIEWER | 3898 | 2008/08/30 |