Lệnh tự động in sổ kế toán bằng code VBA excel

Sub lenh_in() On Error Resume Next ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1 End Sub