인쇄미리보기 vba 질문 입니다.

VBA
작성자
이하늘
작성일
2021-06-25 20:59
조회
131

아래와 같이 인쇄미리보기 버튼을 만들어서 인쇄를 할려고 합니다.

인쇄미리 버튼을 누루면 아래 인쇄물에서 두셀이 테두리가 있는 상태로 인쇄가 되었으면 합니다.

위와같이 인쇄시에 항상 고정적으로 두셀이 테두리가 있는 상태로 인쇄하고 싶습니다.

위에 내용은 항상 고정이 아니고 유동적입니다.  그래서 내용이 8행까지 있을때도 있고

14행까지 있을때도 있고 유동적이어서 어떻게 해야 두행정도가 칸이 있는 상태로 인쇄가

되어야 할지 모르겠습니다.

인쇄미리보기에 vba 내용은 아래와 같습니다.

Sub 인쇄()
Range("B6").CurrentRegion.Select
Selection.PrintOut From:=1, To:=1, Preview:=False
End Sub

 

회원등급 : 열매3단계
포인트 : 1750 EP
총질문 : 25 개 (마감율 : 72%)
채택답변 : 10 개
전체 2

  • 2021-06-27 16:06
    채택된 답변
    Sub 인쇄미리보기()
    With Range("B2").CurrentRegion
    .Resize(.Rows.Count + 2).PrintPreview
    End With
    End Sub

  • 2021-06-25 21:08

    1 CurrentRegion.Resize(2,0)을 해서 범위 크기를 늘리고 인쇄하는 방법

    2. 인쇄범위, 마지막 행값을 찾아 "+ 2"를 한다음 인쇄하는 방법

    둘 중에 하나를 쓰시면 될 듯 합니다.


전체 3,542
번호 카테고리 제목 작성자 작성일 추천 조회
3528 함수/공식
New =counta(green) 함수 (3) 답변완료
Finir2017 | 2021.08.02 | 추천 1 | 조회 18
Finir2017 2021.08.02 1 18
3527 함수/공식
New 엑셀에서 통합문서내 sheet이름 전체를 불러오는 함수는 없을까요? 첨부파일 (1)
아침햇쌀 | 2021.08.02 | 추천 0 | 조회 15
아침햇쌀 2021.08.02 0 15
함수/공식
New Re: 추가질문입니다 //// 엑셀에서 통합문서내 sheet이름 전체를 불러오는 함수는 없을까요? (1)
아침햇쌀 | 2021.08.02 | 추천 0 | 조회 21
아침햇쌀 2021.08.02 0 21
3526 함수/공식
New IF함수 응용 수식문의입니다(하이픈(-) 인식 관련) 첨부파일 (1)
호우 | 2021.08.02 | 추천 0 | 조회 20
호우 2021.08.02 0 20
3525 기능/도구
New 파파고함수 에러, 네트워크 프레임관련 질문 첨부파일 (1)
H.B | 2021.08.02 | 추천 0 | 조회 12
H.B 2021.08.02 0 12
3524 VBA
New 행과 전체범위를 비교하여 고유값 개수 세기
means**** | 2021.08.02 | 추천 0 | 조회 18
means**** 2021.08.02 0 18
3523 함수/공식
New 행과 전체범위를 비교하여 고유값 개수 세기 (4)
means**** | 2021.08.02 | 추천 0 | 조회 36
means**** 2021.08.02 0 36
3522 VBA
New VBA를 이용한 재고 활용보고 질문드립니다. 첨부파일 (4) 답변완료
황수형(Gallent) | 2021.08.02 | 추천 0 | 조회 59
황수형(Gallent) 2021.08.02 0 59
3521 함수/공식
New 오빠두 데이터유효성 부분 일치 검색 필터 만들기 강의 질문입니다. (6)
월마리아 | 2021.08.01 | 추천 0 | 조회 44
월마리아 2021.08.01 0 44
3520 파워쿼리/피벗
New 파워쿼리 날씨api (1)
엑셀지킴이 | 2021.08.01 | 추천 0 | 조회 34
엑셀지킴이 2021.08.01 0 34
3519 VBA
New 파일열지 않고 시트 가져오기 첨부파일 (4)
ArkGie | 2021.08.01 | 추천 2 | 조회 60
ArkGie 2021.08.01 2 60
3518 함수/공식
New 엑셀로 데이터 비교 첨부파일 (1)
Chris | 2021.08.01 | 추천 1 | 조회 46
Chris 2021.08.01 1 46
3517 기능/도구
New 발주서에 상품 공급가 들어가게 하고 싶어요 첨부파일 (6)
해피365샵 | 2021.08.01 | 추천 0 | 조회 37
해피365샵 2021.08.01 0 37
3516 함수/공식
New 중복된 날짜 제거 후 열로 나열하는 법 궁금합니다 첨부파일 (3)
김성환 | 2021.08.01 | 추천 0 | 조회 31
김성환 2021.08.01 0 31
3515 함수/공식
New 혈압 평균 구하는 법 (1)
밍밍 2호 | 2021.08.01 | 추천 0 | 조회 28
밍밍 2호 2021.08.01 0 28
3514 함수/공식
New index, match 응용버젼 문의드립니다. 첨부파일 (4)
현우 | 2021.08.01 | 추천 0 | 조회 42
현우 2021.08.01 0 42
3513 함수/공식
New 문의 드립니다^^ 첨부파일 (2) 답변완료
해피365샵 | 2021.08.01 | 추천 0 | 조회 47
해피365샵 2021.08.01 0 47
3512 함수/공식
New [한셀] 시험등급이 특급일때 달성한 날짜를 결과값으로 가져오고 싶습니다. 도와주세요! 첨부파일 (1)
라이언 | 2021.08.01 | 추천 0 | 조회 28
라이언 2021.08.01 0 28
3511 VBA
New vba Range의 셀 값을 변수로 값을 대입하기 (1)
vbawhat | 2021.07.31 | 추천 0 | 조회 44
vbawhat 2021.07.31 0 44
3510 VBA
New 텍스트 파일 끝에서부터 키워드로 검색하기 (2) 답변완료
어제부터VBA | 2021.07.31 | 추천 0 | 조회 46
어제부터VBA 2021.07.31 0 46
3509 VBA
New 재고관리 vba 콤보박스 활용 검색 도움부탁드립니다 (1)
ycy | 2021.07.31 | 추천 0 | 조회 48
ycy 2021.07.31 0 48
3508 함수/공식
고수님...첫출근일 함수 부탁드립니다 첨부파일 (2) 답변완료
jhp | 2021.07.30 | 추천 0 | 조회 73
jhp 2021.07.30 0 73
3507 VBA
listbox에 Access query내용을 담는 방법 (1)
마녀 | 2021.07.30 | 추천 0 | 조회 35
마녀 2021.07.30 0 35
3506 함수/공식
구글 스프레드 SUMIFS 함수 (1)
호잇 | 2021.07.30 | 추천 0 | 조회 47
호잇 2021.07.30 0 47
3505 VBA
구글 스프레드시트에서 vba 모듈 활용법 (1)
aksr**** | 2021.07.30 | 추천 0 | 조회 44
aksr**** 2021.07.30 0 44
3504 함수/공식
다중조건 최대값 & 최소값 함수 문의의 건 첨부파일 (1)
kangj**** | 2021.07.30 | 추천 0 | 조회 46
kangj**** 2021.07.30 0 46
3503 파워쿼리/피벗
파워쿼리, 특정 시트의 셀값 참조하여 필터링하기 (2)
| 2021.07.30 | 추천 1 | 조회 52
2021.07.30 1 52
3502 함수/공식
index(출력값,match(찾을값,범위,0)) 로 값을 구할 때 "match의 범위"를 "두개의 열"로 확장하는 방법? (3) 답변완료
HoDee | 2021.07.30 | 추천 1 | 조회 60
HoDee 2021.07.30 1 60
3501 기능/도구
스마트아트 작성 문의드려요 첨부파일 (1)
비달빵순 | 2021.07.30 | 추천 0 | 조회 35
비달빵순 2021.07.30 0 35
3500 함수/공식
엑셀 색상별 합계 3초만에 구하는 방법 강의를 듣고 색상별 개수를 구하는 방법을 알려 주세요 (8)
Finir2017 | 2021.07.29 | 추천 0 | 조회 61
Finir2017 2021.07.29 0 61
3499 함수/공식
lookup 관련 찾는 범위가 필드이고 반환 열이 첫번째 인데 반환 값이 여러개, 반환 범위가 가로인 경우 첨부파일 (5) 답변완료
means**** | 2021.07.29 | 추천 1 | 조회 67
means**** 2021.07.29 1 67