워드로 엑셀 쓰기
신나게 표를 만들고 나서, A4로 출력을 하려고 하면, 원치 않는 사이즈로 나올 때가 있다. %로 조정해서 사이즈를 맞출 수는 있지만, 그러다 보면 글씨가 작아지는 등 시행착오를 동반하게 된다.
시작하자마자, 100% 비율의 A4 사이즈를 맞춘다면 좋을 것 같다. 특히 셀병합을 하기 위해서 적당히 작은 셀들로 구성이 되어 있으면 좋겠다.
이를 위한 매크로를 짜서 실행하면 다음과 같이 설정된다.
A열부터 좀 넉넉하게 Z열까지 열 너비를 적당히 줄이고, 용지 사이즈는 A4, 세로로 설정했다.
여백은 "좁게" 옵션과 비슷하게 설정했다.
가장 외곽에 테두리를 치고, 인쇄 미리보기를 하면 다음과 같다.
사용된 코드는 다음과 같다.
Sub seta4()
Dim rng As range
Dim sht As Worksheet
Set rng = ActiveSheet.range("a:z")
With rng
.Select
.ColumnWidth = 3.86
.RowHeight = 18
End With
Cells.VerticalAlignment = xlCenter
With ActiveSheet.PageSetup
.CenterHorizontally = True
.Orientation = xlPortrait 'landscape
.PaperSize = xlPaperA4
'inch표시
.TopMargin = Application.InchesToPoints(0.748031)
.BottomMargin = Application.InchesToPoints(0.748031)
.LeftMargin = Application.InchesToPoints(0.23622)
.RightMargin = Application.InchesToPoints(0.23622)
.HeaderMargin = Application.InchesToPoints(0.314961)
.FooterMargin = Application.InchesToPoints(0.314961)
End With
End Sub
제대로 됐는지는 좀 써봐야겠다.
끝.
