Xin code In ra từng sổ báo cáo (1 người xem)

[duckenna]

Chào các anh chị ạ!
Em có tạo sheet "IN " trong chương trình và muốn khi nhấn vào từng sổ trong đó thì sẽ in ra sổ tương ứng. em ko dành về VBA nên rất mong anh chị giúp đỡ ạ. Em cảm ơn nhiều ạ.

 

[comet_1701]

Chào các anh chị ạ!
Em có tạo sheet "IN " trong chương trình và muốn khi nhấn vào từng sổ trong đó thì sẽ in ra sổ tương ứng. em ko dành về VBA nên rất mong anh chị giúp đỡ ạ. Em cảm ơn nhiều ạ.

Sub Inso()
With Sheets("SO152") ' Thay sheet phu hop
    With .PageSetup
        .PrintArea = .Parent.Range("A1:F44").Address ' Thay vung phu hop
        .FitToPagesWide = 1
        .FitToPagesTall = 100
        .Parent.PrintOut 1
    End With
End With
End Sub

Ở sheet IN bạn chuột phải Assign Macro rôì chọn sub Inso ( lệnh in khác bạn làm tướng tự ). File bạn làm rất khoa học.

 

[duckenna]

Sub Inso()
With Sheets("SO152") ' Thay sheet phu hop
    With .PageSetup
        .PrintArea = .Parent.Range("A1:F44").Address ' Thay vung phu hop
        .FitToPagesWide = 1
        .FitToPagesTall = 100
        .Parent.PrintOut 1
    End With
End With
End Sub

Ở sheet IN bạn chuột phải Assign Macro rôì chọn sub Inso ( lệnh in khác bạn làm tướng tự ). File bạn làm rất khoa học.

em cảm ơn nhiều lắm ạ. em làm được rồi ạ

 

[nmhung49]

Ở sheet BPS ô P46 công thức bị tham chiếu trùng sửa lại cho đúng không thôi tính toán sẽ sai

 

[duckenna]

Ở sheet BPS ô P46 công thức bị tham chiếu trùng sửa lại cho đúng không thôi tính toán sẽ sai

vâng ạ, em cảm ơn nhiều ạ