Private Sub OkInBB_All_Click()
Dim inStart As Long, inFinish As Long
Dim I As Long
Dim CotD As Range
Dim ws As Worksheet
On Error GoTo Thoat
Set ws = Sheet4
ws.DisplayPageBreaks = False
inStart = TextBox1.Value
inFinish = TextBox2.Value
For I = inStart To inFinish
With ws
ActiveSheet.DisplayPageBreaks = False
.Range("H2").Value = I
Call CogianDong
For Each CotD In Range("D11:D15")
If CotD.Value = "0" Then
CotD.EntireRow.Hidden = True
End If
Next CotD
.PrintOut 'Vùng in Set
End With
Next I
Thoat:
Unload Me
ActiveSheet.DisplayPageBreaks = False
End Sub
'***********************************************************************************************************************
'LUA CHON MÁY IN
Private Sub Printer_Properties_Click()
Call Shell("rundll32 printui.dll,PrintUIEntry /p /n """ & ComboBox1.Value & """", vbNormalFocus)
End Sub
Sub List_Printer()
Dim aPrinters As Object
Dim I As Long, N As Long
With CreateObject("WScript.Network")
Set aPrinters = .EnumPrinterConnections
For I = 1 To aPrinters.Count Step 2
ComboBox1.AddItem aPrinters.Item(I)
Next
End With
End Sub
Sub Get_Default_Printer()
Dim WSHshell As Object, RegKey As String, RegKeySplit As Variant
Dim RegDefault As String, MyPrinter As String
RegKey = _
"HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\Windows\Device"
Set WSHshell = CreateObject("WScript.Shell")
RegDefault = WSHshell.RegRead(RegKey)
Set WSHshell = Nothing
RegKeySplit = Split(RegDefault, ",")
MyPrinter = RegKeySplit(0)
ComboBox1.Text = MyPrinter
End Sub
Private Sub UserForm_Initialize()
Call List_Printer
Call Get_Default_Printer
End Sub
'***********************************************************************************************************************
15 mà File của bạn là D8
