각종 팁&정보를 나누는 곳입니다.
누군가에게 도움이 된다 싶으시면 언제라도 포스팅 :)
글 등록하기 | 내글 관리하기 | 연재글 | 보관함
첨부파일 https://imweb.eond.com/webtip/414869

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



출처 : https://answers.microsoft.com/ko-kr/msoffice/forum/all/%EC%97%91%EC%85%80-%EB%84%98%EB%B2%84%EB%A7%81/7260ae82-b0d8-48f1-b93d-1794fdafa259

코멘트 0
접기/펴기 | 댓글 새로고침
 
 
Total 683 articles in 52 / 57 pages
번호 제목 제목 조회 수 날짜날짜
71 [기본] AppleMobileDeviceService.exe 아예 지워버리자 6804 2007/10/28
70 [브라우저] 내 파이어폭스 북마크를 다른 컴퓨터에서도 사용하자 8525 2007/10/28
69 [브라우저] 파이어폭스 설치된 플러그인을 다른 컴퓨터에서도 사용하는 방법 7896 2007/10/27
68 [기본] 컴퓨터로 라디오 듣기 8117 2007/10/24
67 [기본] 탐색기 파일 목록 텍스트로 저장하기 7674 2007/10/23
66 [기본] 카스퍼스키 무료로 사용하기 7027 2007/10/23
65 [기본] 시작프로그램 관리 & 모니터링 5999 2007/10/21
64 [기본] 구글에서 mp3 다운받기 7150 2007/10/20
63 [기본] 우리지역 도서관 이용해보자. 파일 6186 2007/10/07
62 [기본] 테터툴즈 및 티스토리 도움말 링크 페이지 7303 2006/05/31
61 비밀글 showttmp3 0 2008/08/01
60 싸이월드 게시판에 동영상 및 음악 플레이어 삽입하기 파일 9935 2008/08/01

해시태그 디렉터리