k = Printer.DeviceName 'запомнить имя принтера по умолчанию
Private Sub Form_Load()
k = Printer.DeviceName 'запомнить имя принтера по умолчанию
For Each i In Printers
Combo1.AddItem (k)
Combo1.AddItem i.DeviceName 'загнать все принтера в список
Next
On Error GoTo 0
Private Sub Form_Load
...
DP = Printer.DeviceName
Combo1.AddItem DP
For Each prn In Printers
If prn.DeviceName <> DP Then Combo1.AddItem prn.DeviceName
Next prn
End Sub
Private Sub Command1_Click()
'перед печатью
Dim k As Printer
'Установить принтер из списка - текущим
For Each k In Printers
If k.DeviceName = Combo1.Text Then
Set Printer = k
Exit For
End If
Next
AllText = ""
Open "Data\123.txt" For Input As #1
Do While Not EOF(1)
Input #1, st
AllText = AllText + st
Loop
Close #1
Printer.Print AllText
Printer.EndDoc
End Sub
Private Sub Command1_Click()
Dim AllText As String, st As String
AllText = ""
Open "C:\123.txt" For Input As #1
Do While Not EOF(1)
Input #1, st
AllText = AllText + st
Loop
Close #1
Printer.Print AllText
Printer.EndDoc
End Sub
Option Explicit
Dim i As Printer
Dim k As String
Dim kk As Integer
Dim AllText As String
Dim st As String
Private Sub Form_Load()
k = Printer.DeviceName 'запомнить имя принтера по умолчанию
Combo1.AddItem k
For Each i In Printers
If i.DeviceName <> k Then Combo1.AddItem i.DeviceName 'загнать все принтера в список
Next
On Error GoTo 0
'перебрать их еще раз и в списке установить принтер по умолчанию
For kk = 0 To Combo1.ListCount - 1
If Combo1.List(kk) = k Then
Combo1.Text = Combo1.List(kk)
Exit For
End If
Next
Printer.FontName = "Times New Roman"
Printer.FontSize = 12
End Sub
Private Sub Command1_Click()
'перед печатью
Dim k As Printer
'Установить принтер из списка - текущим
For Each k In Printers
If k.DeviceName = Combo1.Text Then
Set Printer = k
Exit For
End If
Next
AllText = ""
Open "Data\123.txt" For Input As #1
Do While Not EOF(1)
Input #1, st
AllText = AllText + st
Printer.Print AllText
Printer.EndDoc
Loop
Close #1
End Sub
Open "Data\123.txt" For Input As #1
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 160