Đúng ý em rùi. Anh chỉ cho em cách in form như ở sheet 5 anh nha. Em cám ơn ( như ở file của anh đấy )
Private Sub CommandButton1_Click()
Dim lItem As Long
Dim RngD As Range, RngC As Range, Rng As Range
Dim RowD, RowC, Buoc, i As Integer
endRow = Sheet2.Range("C65500").End(xlUp).Row - 1
FirstRow = Sheet2.Range("C1").End(xlDown).Row + 1
If Me.OptionButton1 = True Then
For i = 3 To ThisWorkbook.Sheets.Count
For Each Rng In Sheet2.Range("B2:B" & [B65500].End(xlUp).Row)
Sheets(i).Range("C9").Value = Rng.Value
Sh.PrintOut Copies:=TextBox3.Value, Collate:=True
Next
Next
End If
'Truong hop tuy chon cac Sheet khi In
For lItem = 0 To TenSheet.ListCount - 1
If TenSheet.Selected(lItem) = True Then
' Me.OptionButton2 = True
' Sheet1.[A15].Value = TenSheet.List(lItem)
' If Me.OptionButton2 = True Then
If ComboBox2.Value = "" Or ComboBox3.Value = "" Then
MsgBox "Ban Chua chon Ten de In"
Else
Set RngD = Sheet2.Range("B5:B" & Sheet2.[B65500].End(xlUp).Row).Find(what:=ComboBox2.Value, lookat:=xlWhole)
Set RngC = Sheet2.Range("B5:B" & Sheet2.[B65500].End(xlUp).Row).Find(what:=ComboBox3.Value, lookat:=xlWhole)
If Not RngD Is Nothing Then
RowD = RngD.Row
End If
If Not RngD Is Nothing Then
RowC = RngC.Row
End If
If RowC < RowD Then
Buoc = -1
Else
Buoc = 1
End If
For i = RowD To RowC Step Buoc
Sheets(TenSheet.List(lItem)).Range("C9").Value = Sheet2.Range("B" & i).Value
Sheets(TenSheet.List(lItem)).PrintOut Copies:=TextBox3.Value, Collate:=True
Next i
End If
'End If
TenSheet.Selected(lItem) = False
End If
Next
Unload Me
Set RngD = Nothing
Set RngC = Nothing
End Sub
Private Sub CommandButton2_Click()
Unload Me
End Sub
Private Sub UserForm_Initialize()
Dim Sh As Worksheet
Dim dongcuoi As Integer
Dim Rng As Range, sRng As Range
If Me.OptionButton1 = True Then
Me.OptionButton2 = False
End If
If Me.OptionButton2 = True Then
Me.OptionButton1 = False
End If
For Each Rng In Sheet2.Range("B5:B" & Sheet2.[B65500].End(xlUp).Row)
ComboBox2.AddItem Rng.Value
Next
For Each sRng In Sheet2.Range("B5:B" & Sheet2.[B65500].End(xlUp).Row)
ComboBox3.AddItem sRng.Value
Next
TextBox3.Value = 1
dongcuoi = ThisWorkbook.Sheets("Sheet1").Range("AA65500").End(xlUp).Row
TenSheet.RowSource = "'[" & ThisWorkbook.Name & "]Sheet1'!AA2:AA" & dongcuoi
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = 0 Then Cancel = True
End Sub
