Gỡ rối in tự động.

[thang24]

Mình có file E gồm nhiều dữ liệu
H muốn in nhưng để thuận tiện mỗi lần kích in thì ô D5 nhẩy 1 giá trị.

để làm thay đổi giá trị trong đó.
Ai có thể giúp mình ko?

 

[ThangAcc]

Mình có file E gồm nhiều dữ liệu
H muốn in nhưng để thuận tiện mỗi lần kích in thì ô D5 nhẩy 1 giá trị.

để làm thay đổi giá trị trong đó.
Ai có thể giúp mình ko?

Bạn đặt 1 command button, và copy đoạn này vào phần code là ok

Private Sub CommandButton1_Click()
    ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,1,,,TRUE,,FALSE)"
    Dim x As Integer
        x = Cells(5, "D").Value
        x = x + 1
        Cells(5, "D").Value = x
    End Sub

 

[nghiaphuc]

Bạn đặt 1 command button, và copy đoạn này vào phần code là ok

Private Sub CommandButton1_Click()
ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,1,,,TRUE,,FALSE)"
Dim x As Integer
x = Cells(5, "D").Value
x = x + 1
Cells(5, "D").Value = x
End Sub

Khi nhấn nút, Excel báo lỗi quá nhiều tham số, không chạy được bạn ạ.
Hơn nữa, cả khối lệnh này

Dim x As Integer
x = Cells(5, "D").Value
x = x + 1
Cells(5, "D").Value = x

chỉ cần thay bởi 1 câu lệnh [D5]=[D5]+1 là đủ.
Theo mình thì có thể sử dụng code sau:

Sub CommandButton1_Click()
    Dim i As Integer, N As Integer
    N = Sheets("avc").[C65536].End(xlUp).Offset(-1)
    For i = 1 To N
        [D5] = i
        Sheets("in").PrintOut
    Next i
End Sub

Nếu chỉ để xem trước khi in thì thay PrintOut bởi PrintPreview.

 

[ThangAcc]

Khi nhấn nút, Excel báo lỗi quá nhiều tham số, không chạy được bạn ạ.

Lạ nhỉ, mình chạy thử rồi, ok mà