Kết xuất ra PDF (1 người xem)

[romado]

Trong quá trình làm việc có một vấn đề Em nhờ các Pác trên diễn đàn giúp Em như sau:
Em muốn kết xuất phiếu THU, Chi, Nhập, Xuất ra file PDF nhưng mỗi lần chỉ kết xuất được 01 phiếu và Em sử dụng macro để kết xuất nhưng mất thời gian vậy cho Em hỏi Pác nào viết giúp Em đoạn code để có thể kết xuất tất cả các số phiếu trong một lần bấm chuột ra file có đuôi là PDF. Em xin cảm ơn.
Em xin gửi file đính kèm ở dưới.

 

[quick87]

Trong quá trình làm việc có một vấn đề Em nhờ các Pác trên diễn đàn giúp Em như sau:
Em muốn kết xuất phiếu THU, Chi, Nhập, Xuất ra file PDF nhưng mỗi lần chỉ kết xuất được 01 phiếu và Em sử dụng macro để kết xuất nhưng mất thời gian vậy cho Em hỏi Pác nào viết giúp Em đoạn code để có thể kết xuất tất cả các số phiếu trong một lần bấm chuột ra file có đuôi là PDF. Em xin cảm ơn.
Em xin gửi file đính kèm ở dưới.

Theo mình, bạn nên khai báo thêm vùng: In từ số, Đến số, Loại phiếu cần in
Chẳng hạn:
L1 nhập: " In từ số "
L2 nhập: " Đến số "
L4 nhập: " Loại phiếu "

Giá trị cần in hoặc xuất ra pdf bạn nhập tại ô:
- Số bắt đầu in: M1
- Số kết thúc: M2
- Loại phiếu cần in: M4 (pt, pc, px , pn)

Tại Sheet: "PHIEU THU-CHI", ô J7 Nhập công thức:

=$M$4&$M$3

Tại Sheet: "PHIEU N-X", ô J6

=$M$4&$M$3

Code cho việc xuất file pdf :

Sub TachFile()
Dim i As Long
On Error Resume Next
    For i = Range("M1").Value To Range("M2").Value
    Range("M3").Value = i
        If [M4] = "pn" Or [M4] = "px" Then
            NameFile = "D:" & "\" & "phieu XN - " & Range("J6") & ".pdf"
            Sheets("PHIEU N-X").Range("A1:I26").ExportAsFixedFormat Type:=xlTypePDF, FileName:=NameFile
        Else
            NameFile = "D:" & "\" & "phieu TC - " & Range("J7") & ".pdf"
            Sheets("PHIEU THU-CHI").Range("A1:J26").ExportAsFixedFormat Type:=xlTypePDF, FileName:=NameFile
       
        End If
    Next i
        MsgBox "Tach file hoan tat!", , "Thong bao"
End Sub

Bạn tham xem file đính kèm nhé !
Hoặc tham khảo bài viết này của anh @befaint !

 

[romado]

xin cảm ơn pác Quik87 nhiều. he....

 

[romado]

Pác Quik87 xin cho hỏi tẹo là: Mình cho thêm đoạn code để kết xuất phiếu nhập, phiếu xuất nhưng khi thực hiện lệnh nó ko ra. Mình copy đoạn code như dưới đây.

Private Sub CommandButton1_Click()
Dim i As Long
On Error Resume Next
For i = Range("M1").Value To Range("M2").Value
Range("M3").Value = i
'Range("A1:J26").PrintOut
'Range("A1:K26").PrintPreview
Rows("14:20").Select
Rows("14:20").EntireRow.AutoFit
Range("J16").Select
ActiveSheet.Range("$A$14:$AI$26").AutoFilter Field:=10, Criteria1:="<>"
If [M4] = "pn" Or [M4] = "px" Then
NameFile = "D:" & "\" & "phieu XN - " & Range("J6") & ".pdf"
Sheets("PHIEU N-X").Range("A1:I26").ExportAsFixedFormat Type:=xlTypePDF, Filename:=NameFile
Else
NameFile = "D:" & "\" & "phieu TC - " & Range("J7") & ".pdf"
Sheets("PHIEU THU-CHI").Range("A1:J26").ExportAsFixedFormat Type:=xlTypePDF, Filename:=NameFile

End If
Next i
MsgBox "Tach file hoan tat!", , "Thong bao"
End Sub