Nhờ sửa code in hàng loạt xuất ra pdf

[saobekhonglac]

Chào anh/chị.

Em có file in hàng loạt và chọn máy in, em muốn in dạng pdf nhưng em có nhiều trang quá nếu chọn in pbf thì phải ngồi lưu tên từng file, Nhờ anh/chị tạo giúp em code sau cho khi bấm nút print thì sẽ in từ số 1 đến 10 và lưu dạng pdf với tên là A1-->A10 (J2-->J11).

Cám ơn anh/chị

 

[nghiaphuc]

Chào anh/chị.

Em có file in hàng loạt và chọn máy in, em muốn in dạng pdf nhưng em có nhiều trang quá nếu chọn in pbf thì phải ngồi lưu tên từng file, Nhờ anh/chị tạo giúp em code sau cho khi bấm nút print thì sẽ in từ số 1 đến 10 và lưu dạng pdf với tên là A1-->A10 (J2-->J11).

Cám ơn anh/chị

Bạn sửa code thành:
[GPECODE=vb]Sub Button1_Click()
Dim Num As Long, i As Long
Application.DisplayAlerts = False
Num = Sheet1.[A7].Value
For i = 1 To 10
Sheet1.[A7].Value = Num + i
Sheet1.[A1:C15].ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "" & Sheet1.Cells(1 + i, 10) & ".pdf"
Next
Application.DisplayAlerts = True
End Sub[/GPECODE]