[VBA] 코드 모음3 - 인쇄, 저장 관련

150 인쇄영역

activesheet.pagesetup.printarea = 주소

 

 

154 인쇄옵션

worksheets(1).printout collate:= true

한 부씩 인쇄

 

158

파일 새이름으로 저장하고 닫기

activeworkbook.close (true, text.xlsx)

닫으면서 text라는 이름으로 저장한다

아직 이름이 정해지지 않은경우

 

[시트 전체 값으로 복사 붙여넣기후 새로운 파일로 저장하기]

Sub 값으로시트복사()

Dim wb As Workbook

Dim wa As Worksheet

 

Set wa = ActiveSheet ‘여기서 변수로 지정해줘야

wa.UsedRange.Select

Selection.Copy

Selection.PasteSpecial (-4163)

 

Set wb = Workbooks.Add ‘여기서 초점이 이동했을때

wa.Copy Before:=wb.Sheets(1) ‘여기서 쉽게 복사가능

wb.SaveAs "d:\test1.xlsx" '파일경로 및 이름 여기서 지정

 

End Sub

 

 

[pdf 저장]

ActiveWorksheet.ExportAsFixedFormat _

Type:=xlTypePDF, _

Filename:=myFile, _

Quality:=xlQualityStandard, _

IncludeDocProperties:=True, _

IgnorePrintAreas:=False, _

OpenAfterPublish:=False

 

[선택한시트만pdf저장]

Sub Macro1()

 

Sheets("Sheet1").Activate

ActiveSheet.UsedRange.Select

Sheets("Sheet2").Activate

ActiveSheet.UsedRange.Select

Sheets("Sheet3").Activate

ActiveSheet.UsedRange.Select

 

ThisWorkbook.Sheets(Array("Sheet1", "Sheet2", "Sheet3")).Select

Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _

"C:\Users\James\Desktop\pdfmaker.pdf", Quality:=xlQualityStandard, _

IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _

True

End Sub