从VBA中的用户输入范围循环遍历每一行

Question

I've been researching on this for quite awhile but none of my code work so far, so I wish someone can help. I created a userform that has 2 input boxes and a command button. I want the command button to highlight each row one at a time and then print out a copy with each higlighted row. For example, the user input "A5:J5" as the starting row from textbox1 then "A30:J30" as the ending row from textbox2. I want the command button to automatically highlight one row at a time and print out 1 copy for each row. Here is a part of the code. Not updated with looping and offset (which doesn't work anyways) as I don't have the copy of my updated code at the moment. I will appreciate any help. Thanks.

Private Sub PrintingButton_Click()

Dim firstrow As String
Dim firstrange As Range

Dim lastrow As String
Dim lastrange As Range

'highlight the firstrow

firstrow = TextBox1.Value
Set firstrange = Range(firstrow)

lastrow = TextBox2.Value
Set lastrange = Range(lastrow)

firstrange.Select
With Selection.Interior
.Color = 65535
'insert printing code here:    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
    IgnorePrintAreas:=False
End With


End Sub

Answer 1

Try something like the following. Seems to work for me.

Private Sub PrintingButton_Click()
    Dim firstrow As String
    Dim lastrow As String
    Dim rMyRange As Range


    firstrow = TextBox1.Value 'Input value like "A5" (just the upper letf cell of desired range, not range as in you example)
    lastrow = TextBox2.Value 'Input value like "B10" (just the bottom right cell of desired range, not range)

    'data is supposed to be located in sheet "MyData"
    Set rMyRange = Worksheets("MyData").Range(firstrow, lastrow)

        For Each MyRow In rMyRange.Rows
        MyRow.Select
            With Selection.Interior
            .Color = 65535
            'Your printer settings here
            Application.ActivePrinter = "hp photosmart 7200 series (Copiar 1) en Ne01:"
        ActiveWindow.Selection.PrintOut Copies:=1, ActivePrinter:= _
            "hp photosmart 7200 series (Copiar 1) en Ne01:", Collate:=True

            End With
        Next
End Sub