Lựa chọn máy in

Sub chonmayin()

Application.Dialogs(xlDialogPrinterSetup).Show

End Sub

Sub chonkhogiay()

ActiveSheet.PageSetup.PaperSize = xlPaperA4

End Sub

Sub khogiaydoc()

ActiveSheet.PageSetup.Orientation = xlPortrait

End Sub

Sub khogiayngang()

ActiveSheet.PageSetup.Orientation = xlLandscape

End Sub

Sub caidatlein()

With ActiveSheet.PageSetup

.LeftMargin = 40

'le trai

.RightMargin = 40

'le phai

.TopMargin = 20

'le tren

.BottomMargin = 20

'le duoi

.HeaderMargin = 5

'len header

.FooterMargin = 5

'le Footer

End With

End Sub

Sub caidatkhuvucin()

ActiveSheet.PageSetup.PrintArea = "A2:AQ93"

End Sub

Sub intranghientai()

ActiveSheet.PrintOut

End Sub