Cho em hỏi về cách xuất file PDF

[ungthienhai]

Em có sheet1, em chọn vùng để xuất file PDF.
Nhưng sau mỗi lần xuất PDF thành công là sẽ tăng số phiếu xuất PDF lên +1

Anh chị hướng dẫn em với, em xin cảm ơn.

 

[dinhduy]

Bạn này in ra PDF hàng loạt hả

 

[ungthienhai]

Bạn này in ra PDF hàng loạt hả

không bác nè,
Em cần in ra vùng chọn để cho vừa trang pdf.
Mỗi lần in là số phiếu in tăng lên 1 cho lần sau

 

[dinhduy]

Cứ mỗi lần mình in, số phiếu tự thay đổi => nội dung thay đổi.
VD: In hợp đồng hay bảng lương vậy đúng k ?

 

[ungthienhai]

Cứ mỗi lần mình in, số phiếu tự thay đổi => nội dung thay đổi.
VD: In hợp đồng hay bảng lương vậy đúng k ?

đúng rồi bác nè, em in hoa đơn. Em cần số hoá đơn bán hàng tăng lên +1
Còn nội dung hoá đơn thì em làm được rồi. Giờ em chèn 1 nút commandbutton vào để in hoá đơn này ra PDF. Nhưng hoá đơn em khổ dọc nên em muốn chọn vùng để xuất ra PDF cho nhìn gọn gàng lại.

 

[dinhduy]

Bác gửi File lên, mình thử xem (tập tành chút chút ah). Diễn đàn có rất nhiều bài tương tự như nội dung của bác

 

[ungthienhai]

Sub andonghoadon()
Dim sh As Worksheet
Set sh = Sheet12
If sh.Range("c41") <> "" Then Exit Sub
Application.ScreenUpdating = False
Dim lr As Long
lr = sh.Range("c41").End(xlUp).Row + 1
sh.Range("c41:C" & lr).EntireRow.Hidden = True
ActiveSheet.PrintOut 'IN RA MAY TIN
sh.Range("c41:C" & lr).EntireRow.Hidden = False
Application.ScreenUpdating = True
End Sub

Chỗ dòng in ra máy in em muốn chèn dòng in pdf dc ko bác?

 

[dinhduy]

Nghĩa là ẩn dòng, in ra giấy, in ra PDF, bỏ ẩn dòng, mình nghĩ là được. Thực hiện từng lệnh 1 mà