Xin code cho file in giấy mời (1 người xem)

[Tran Mui]

Nhờ GPE giúp đoạn code khi nhấn nút Print sẽ in ra 10 tờ A4
lúc đó sẽ có 20 giấy mời được in ra
File đính kèm
Xin cám ơn

 

[Tường_Vi]

Cái này sao phải code bạn, bạn tìm hiểu mail merge trong word đó (mà GPE cũng có nhiều bài viêt) rồi mà

 

[sealand]

Chọn số bắt đầu rồi nhấn in, hiện đang Printview chỉ việc bỏ dòng này và bỏ dấu nháy dòng sau là được

 

[sealand]

Đêm qua muộn không kiểm tra kỹ:

Số phải nhảy Step 2
Lựa chọn xem Printview<--> In ra giấy.

Sub CmdPrint()
Dim n, i, hoi As Integer
i = Sheet1.[n2]
n = Application.WorksheetFunction.Max(Sheet28.[a6:a100])
hoi = MsgBox("CHU Y: Ban chon in tu so " & i & _
" den so " & IIf((i + 19) > n, n, i + 19) & Chr(13) _
& "Dong y nhan OK. Huy bo nhan Cancel", vbOKCancel, "IN GIAY MOI")
If hoi <> 1 Then Exit Sub
With Sheet1
For i = .[n2] To .[n2] + 19 Step 2
If i > n Then Exit Sub
.[n2] = i
If .[n7] = True Then
.PrintOut From:=1, To:=1, Copies:=1
Else
.PrintPreview
End If
Next
End With
End Sub

 

[Tran Mui]

Xem lại hôm trước thấy chưa hợp lí, giờ bạn đưa lên đã điều chỉnh .
Xin cám ơn nhiều
Mình lại muốn GPE giúp thêm một việc nữa, đó là : trong File in giấy mời, mình muốn tạo thêm một sheet nữa để in phiếu điểm
vẫn muốn sử dụng nút Print trong sheet in phiếu ( không sử dụng nút Print trong sheet in giấy mời)
Mỗi lần Click sẽ in 10 trang ( bằng 20 phiếu )
File đính kèm
Xin cám ơn

 

[sealand]

Bạn kiểm tra lại code hoạt động đạt chưa nhé

 

[Tran Mui]

Sealand ơi mới chỉ in có 1 trang ( được 2 phiếu thôi )
Mà khi hiện lên bảng hỏi thi thiếu số đầu tiên, " in từ số đến số 19", các trang sau không hiển thị, mà chỉ hiển thị 1 trang đầu lựa chọn

 

[sealand]

Mình sửa bị sót, xin lỗi nha

 

[tuananh291187]

các bạn ơi! công việc của mình rất cần phải làm thông báo như trên! nhưng mình chưa hiểu cách thức làm! các bạn hướng dẫn cụ thể cho minh làm từng bước với! mình chưa hiểu rõ bản chất của cách làm "hàm lookup" và số liệu ở cột N.
mong các bạn chỉ giáo!
thanksssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssss