Xin hỏi cách in nhãn trên 1 trang với số thứ tự auto

[dmh]

Cảm ơn bạn nhiều lắm.
Có cách nào bấm lệnh in để chọn máy in không vậy vì có nhiều máy in và nhiều định dạng label

 

[nghiaphuc]

Theo như file đính kèm. Xin hỏi làm cách nào để in 1 lần mà số thùng nó tự động cộng lên được.
Vì file này đang làm thủ công mỗi lần in thì phải chọn số.
Có cách nào làm để in 1 lần thì xong hết các số không.

Bạn sử dụng code sau:

Sub PrintAll()
    Dim i As Integer
    For i = 1 To Sheets("Totalcarton").[A65536].End(xlUp).Row
        Sheets("DX").[F13] = Sheets("Totalcarton").Cells(i, 1)
        Sheets("DX").PrintOut
    Next i
End Sub

Trong file đính kèm, bạn nhấn Ctrl+Shift+P để chạy code.
Nếu chỉ muốn xem trang in thì bạn thay PrintOut bởi PrintPreview.