In không lặp tiêu đề một vài trang cuối (4 người xem)

vanle33 đã viết:

Tôi đã chọn được vùng in, in thử ra giấy A4.
Thế thì chỉ lặp được và không lặp được tiêu đề trong vùng bảng biểu (từ dòng 13 đến hết dòng có dữ liệu) mà không in được dữ liệu từ dòng 1 đến dòng 12 và số thứ tự trang không liên tiếp từ phần có tiêu đề sang vùng không có tiêu đề.
Ý tôi là in như bình thường có lặp tiêu đề (dòng 13 đến dòng 15) từ trang 1 đến 90 như mặc định trong Excel còn riêng trang 91 thì không có tiêu đề.

Nhấp chuột vào đây để mở rộng...

LOGANWover đã viết:

Chọn vùng in cần lặp tiêu đề thì anh cần chọn từ dòng đầu tiên mà anh muốn in. Ở file này là từ A1. => có thể anh đang chọn từ A13 nên trang đầu tiên không hiển thị A1:O12.
Nếu anh muốn phần số Page nối tiếp thì có thể thêm phần đếm lượt in đầu ở đây là page1.

Code dưới đã thêm phần page chạy liên tục và được kết quả như file đính kèm. Hy vọng giúp được anh!

Mã: Sao chép.

Sub Print_Two_Areas_With_Title()

    Dim ws As Worksheet
    Dim page1 As Range, page2 As Range, Title As Range
    Dim pageCount1 As Long

    Set ws = ActiveSheet

    Set page1 = Application.InputBox( _
        Prompt:="Chon trang co tieu de", _
        Title:="chon trang", Type:=8)
    If page1 Is Nothing Then Exit Sub

    On Error Resume Next
    Set page2 = Application.InputBox( _
        Prompt:="Chon trang khong co tieu de", _
        Title:="Chon trang cuoi", Type:=8)
    On Error GoTo 0

    Set Title = Application.InputBox( _
        Prompt:="Chon dong tieu de:", _
        Title:="Chon tieu de", _
        Type:=8)
    If Title Is Nothing Then Exit Sub

    With ws.PageSetup
        .PrintArea = page1.Address
        .PrintTitleRows = Title.Address
        .FirstPageNumber = xlAutomatic
    End With
    ActiveWindow.View = xlPageBreakPreview
    pageCount1 = ws.HPageBreaks.Count + 1
    page1.PrintOut

    If Not page2 Is Nothing Then
        With ws.PageSetup
            .PrintArea = page2.Address
            .PrintTitleRows = ""
            .FirstPageNumber = pageCount1 + 1
        End With
        page2.PrintOut
    End If

End Sub

Nhấp chuột vào đây để mở rộng...

LOGANWover đã viết:

Như mục tiêu của #1 thì trước khi in anh đã phải xác định vùng nào là trang cuối không có tiêu đề rồi. Cho nên cách đơn giản nhất là a thực hiện set Area Print + Fix margins cho phù hợp với loại giấy trước khi chạy code. Như vậy sẽ được kết quả ưng ý nhất.

Nhấp chuột vào đây để mở rộng...

vanle33 đã viết:

Trong file đính kèm tôi xin nhờ các thành viên dùng code để khi in từ trang 1 đến 90 thì có lặp lại tiêu đề từ dòng 13, 14, 15 và không lặp tiêu đề ở trang cuối (trang 91).
Ý tôi muốn là hiện ra 1 box có chọn vùng để in có lặp lại tiêu đề và vùng để in không lặp lại tiêu đề rồi IN.
Có thể copy code trong file này để áp dụng cho 1 vài file khác khi cần sử dụng.
Xin cảm ơn các thành viên.

Nhấp chuột vào đây để mở rộng...

vanle33 đã viết:

@HUONGHCKT
ok, ra đúng kết quả yêu cầu luôn
Tốc độ chạy code và in chóng mặt luôn đó bạn. Giấy chưa ra hết mà báo Đã in xong.
Mục này 'Và có cả kiểm tra trang trùng, nhập số trang không hợp lệ.' nằm ở chỗ nào khi sử dụng code vậy bạn?

Nhấp chuột vào đây để mở rộng...

HUONGHCKT đã viết:

1/ Tôi không có máy in nên không kiểm tra được.
2/Tôi nghĩ là bạn thừa trình để đọc và hiểu code. So với bạn tôi vẫn còn "xanh và non lắm". Tuy nhiên tôi vẫn trả lời bạn mặc dù có thể hơi "bị quê". Function KiemTraTrang và Function DanhDauTrang đã thay ta làm được việc này.
3/ có thể vẫn còn có vấn đề ==>> hay xem lại điều 1 và 1 phần điều 2.
Thân.

Nhấp chuột vào đây để mở rộng...

vanle33 đã viết:

@HUONGHCKT : Muốn in bỏ qua chế độ BO (tức là chỉ tin chế độ có TD và chế độ KTD) thì khai báo như thế nào vậy bạn?

Nhấp chuột vào đây để mở rộng...

CauHinh = InputBox( _
   "Ví d?:" & vbCrLf & _
   "TD(1-60=13-15,75-80=20-22);" & _
   "KTD(61-72);" & _
   "BO(73-74)", _
   "Câu hinh in")

CauHinh = InputBox( _
    "Ví d?:" & vbCrLf & _
    "TD(1-60=13-15,75-80=20-22);" & _
    "KTD(61-72);" & _
    "Câu hinh in")

Call XuLyBO(CauHinh, arrKhu, TongTrang)