Nhờ hỗ trợ code in phiếu tự động 3 liên

[Nguoiay]

Chào cả nhà! Em đang tạo phiếu thu tiền. Giờ em đang mắc chỗ tạo code cho nút lệnh in phiếu thu này. Em muốn khi click vào nút In phiếu thì nó tự động in cho em 3 liên.

 

[giaiphap]

Chào cả nhà! Em đang tạo phiếu thu tiền. Giờ em đang mắc chỗ tạo code cho nút lệnh in phiếu thu này. Em muốn khi click vào nút In phiếu thì nó tự động in cho em 3 liên.

Dùng thử code này.

Sub GPE()
    Dim i As Integer
    For i = 1 To 3
        With Sheet1
            .Range("I1").Value = i
            .PrintOut
        End With
    Next i
End Sub

 

[be_09]

Chào cả nhà! Em đang tạo phiếu thu tiền. Giờ em đang mắc chỗ tạo code cho nút lệnh in phiếu thu này. Em muốn khi click vào nút In phiếu thì nó tự động in cho em 3 liên.

1 phiếu có 17 dòng, chỉ cần canh Adjust to là 95% là đủ 3 phiếu trên 1 trang A4 và chỉ in 1 lần là xong, sao bạn muốn in 3 lần làm lãng phí giấy.

 

[Nguoiay]

1 phiếu có 17 dòng, chỉ cần canh Adjust to là 95% là đủ 3 phiếu trên 1 trang A4 và chỉ in 1 lần là xong, sao bạn muốn in 3 lần làm lãng phí giấy.

Dạ, em hỏi để áp dụng in phiếu nhập, xuất kho hàng hóa ạ!