In Tự động bằng VBA (2 người xem)

[Văn Tuấn 123]

Chào mọi người! Mong mọi người giúp đỡ mình có bảng ecxell gồm các sheets mình muốn in tự động theo từng sheet nhưng sau khi lập bị rối không thể in được, bị lỗi Macro. Mong mọi người giúp đỡ. Mình chỉ mới biết đến VBA

 

[snow25]

Chào mọi người! Mong mọi người giúp đỡ mình có bảng ecxell gồm các sheets mình muốn in tự động theo từng sheet nhưng sau khi lập bị rối không thể in được, bị lỗi Macro. Mong mọi người giúp đỡ. Mình chỉ mới biết đến VBA

Bạn sửa thành vậy.

 Sub printF()
    Dim ap As Long, printFrom As Long, printTo As Long
    printFrom = Sheets("sheet1").Range("AP9").Value
    printTo = Sheets("sheet1").Range("AP10").Value
    For ap = printFrom To printTo
        Sheets("sheet1").Range("AP3").Value = ap
        Sheets("sheet1").PrintOut
        'Sheets("sheet1").PrintPreview
    Next ap
End Sub

 

[Văn Tuấn 123]

Cảm ơn anh chị (Snow25) nhiều nha! Mình làm theo in thành công rồi!