Giúp đỡ về marco In nội dung theo tham số lựa chọn (1 người xem)

[hoangp_do]

Gửi ACE:

Mình có 1 file biên bản (đính kèm).

Nay mình muốn nhờ ACE rành về macro & VBA viết dùm code để in biên bản.
Mọi khi mình cần in biên bản số bao nhiêu thì nhập vào ô "Row column"
Nhưng nay cần in nhiều biên bản một lúc. Ví dụ như từ số 10~100 thì viết macro như thế nào.

Mong sớm nhận được sự trợ giúp của ACE.

Cảm ơn mọi người rất nhiều.

 

[hoangp_do]

Mình tìm trên dd có phần code tương tự nhưng đến phần chèn dữ liệu thì không biết sửa thế nào nữa. Mong nhận được sự giúp đỡ của ACE. Cám ơn mọi người nhiều.

Sub INBB()    On Error Resume Next
    Dim ArrKb
    Dim Ws      As Worksheet
    Dim Count   As Byte
    Dim Rng     As Range
    Dim Item    As Range
    Dim i       As Long
    Application.Calculation = xlCalculationAutomatic
   
    'Tao hop thoai chon vung in
    Sheet3.Select
    Set Rng = Application.InputBox( _
            "Quet chon vung can in " & _
            vbNewLine & vbNewLine & _
            "Cac dong can in ", "Chon dong de in", Type:=8)
    Sheets(Sheet2.[C1].Value).Select
    If Not Rng Is Nothing Then
        'Kiem tra Rng xem co phai 1 cot khong
        If Mid(Rng.Address, 2, 1) <> Mid(Rng.Address, InStr(1, Rng.Address, ":") + 2, 1) Then
            MsgBox "Chi quet chon 1 Cot", vbInformation, "Thông báo"
            Exit Sub
        End If
        [B]'Chen du lieu vào Form
        For Each Item In Rng
            For i = 1 To UBound(ArrKb, 1)[/B]
                [B]'Chen so lieu
                If ArrKb(i, 2) <> "" And ArrKb(i, 3) <> "" Then
                    Sheets(Sheet2.[Q1].Value).Range(ArrKb(i, 17)) = Sheet2.Range(ArrKb(i, 21) & Item.Row).Value
                End If[/B]
                
            Next
            'In bao cao
            ActiveWindow.SelectedSheets.PrintOut
        Next
    Else
        MsgBox "Ban khong chon in", vbInformation, "Thong bao"
    End If
End Sub

 

[dhn46]

Code trên là của cả 1 chương trình còn của bạn thì tham khảo cái sau và tùy biến cho hợp lý

Sub InTheoSTT()
    Dim NoStart As Long
    Dim NoEnd As Long
    Dim i As Long
    
    NoStart = InputBox("Nhap Row bat dau", "Thong bao")
    NoEnd = InputBox("Nhap Row khet thuc", "Thong bao")
    
    For i = NoStart To NoEnd
        [Q8] = i
        ActiveSheet.PrintOut
    Next
End Sub

 

[hoangp_do]

Thank bạn. Mình làm được rồi !!!

Code trên là của cả 1 chương trình còn của bạn thì tham khảo cái sau và tùy biến cho hợp lý

Sub InTheoSTT()
    Dim NoStart As Long
    Dim NoEnd As Long
    Dim i As Long
    
    NoStart = InputBox("Nhap Row bat dau", "Thong bao")
    NoEnd = InputBox("Nhap Row khet thuc", "Thong bao")
    
    For i = NoStart To NoEnd
        [Q8] = i
        ActiveSheet.PrintOut
    Next
End Sub