Cho em xin code in hàng loạt (1 người xem)

[bipbo2008]

em có file nguồn là sheet 1
em muốn in hàng loạt các dòng ở sheet 1 ở form sheet 2 (in từ đầu đến cuối, số lượng dòng ngẫu nhiên ạ)
nhờ các bác giúp ạ

 

[DeTong]

em có file nguồn là sheet 1
em muốn in hàng loạt các dòng ở sheet 1 ở form sheet 2 (in từ đầu đến cuối, số lượng dòng ngẫu nhiên ạ)
nhờ các bác giúp ạ

Tìm trong diễn đàn với từ khóa In phiếu lương...

 

[bipbo2008]

Em.đã tìm nhưng bài biết cũ 1 là mất link 2 là ko có cái em cần. Các bác giúp em với điền tự động và in đến dòng cuối cùng có dữ liệu. Hoặc cho em xin code copy ô đó nhưng nếu ko có dữ liệu gì thì dừng tác vụ tại ô copy ko có dữ liệu, nếu có dữ liệu thì tiếp tục in và copy ô dữ liệu của dòng tiếp theo ạ.

 

[DeTong]

Đặt tên cho vùng gán vào Validation là ValList;
Cell D1 là ô đặt Data Validation;
Code in theo list validation

Sub PrintAllValidation()
Dim r As Long, i As Long

r = Range("ValList").Cells.Count
'Ten cua validation list

For i = 1 To r
    Range("d1") = Range("ValList").Cells(i)
    'dia chi cell dat validation
    
    ActiveSheet.PrintOut Copies:=1
Next i

End Sub

 

[hamhochoi66]

Đặt tên cho vùng gán vào Validation là ValList;
Cell D1 là ô đặt Data Validation;
Code in theo list validation

Sub PrintAllValidation()
Dim r As Long, i As Long

r = Range("ValList").Cells.Count
'Ten cua validation list

For i = 1 To r
    Range("d1") = Range("ValList").Cells(i)
    'dia chi cell dat validation
  
    ActiveSheet.PrintOut Copies:=1
Next i

End Sub

Em chào anh, cũng là in phiếu lương hàng loạt theo cột Số thứ tự trong bảng lương theo đoạn code sau:

Sub print_PL()
Dim p1, p2, i&
p1 = Sheet16.Range("E1").Value
p2 = Sheet16.Range("E2").Value

If IsNumeric(p1) = False Or IsNumeric(p2) = False Then
tb = MsgBox("So STT phai la so.", , "Thông báo")
Exit Sub
End If

If p1 > p2 Then
tb = MsgBox("So STT sau phai >= so STT truoc.", , "Thông báo")
Exit Sub
End If

If p1 < 1 Or p2 < 1 Then
tb = MsgBox("So STT phai >= 1.", , "Thông báo")
Exit Sub
End If

If p1 <= p2 Then
For i = p1 To p2
Sheet16.Range("C1").Value = i
Sheet16.PrintOut
Next
End If

Nếu em muốn 1 lệnh xuất ra .PDF có mật khẩu hàng loạt thì code như thế nào vậy ạ. Mong anh hỗ trợ, em cảm ơn anh!

 

[zzzsxxx01]

Em chào anh, cũng là in phiếu lương hàng loạt theo cột Số thứ tự trong bảng lương theo đoạn code sau:

Sub print_PL()
Dim p1, p2, i&
p1 = Sheet16.Range("E1").Value
p2 = Sheet16.Range("E2").Value

If IsNumeric(p1) = False Or IsNumeric(p2) = False Then
tb = MsgBox("So STT phai la so.", , "Thông báo")
Exit Sub
End If

If p1 > p2 Then
tb = MsgBox("So STT sau phai >= so STT truoc.", , "Thông báo")
Exit Sub
End If

If p1 < 1 Or p2 < 1 Then
tb = MsgBox("So STT phai >= 1.", , "Thông báo")
Exit Sub
End If

If p1 <= p2 Then
For i = p1 To p2
Sheet16.Range("C1").Value = i
Sheet16.PrintOut
Next
End If

Nếu em muốn 1 lệnh xuất ra .PDF có mật khẩu hàng loạt thì code như thế nào vậy ạ. Mong anh hỗ trợ, em cảm ơn anh!

Trong .PrintOut có đối số cho đặt mật khẩu đấy. Bạn tìm hiểu thêm nhé.

 

[bipbo2008]

Em cám ơn em đã làm đc rồi ạ