Dim i As Integer
Printer.Font = "Arial"
Printer.FontSize = 10
For i = 0 To Me.List1.ListCount - 1
Printer.Print Me.List1.List(i)
Next
Printer.EndDoc
Alexander N. Samarin писал(а):Почитать книжку по VB?
Konst_One писал(а):
- Код: Выделить всё
Dim i As Integer
Printer.Font = "Arial"
Printer.FontSize = 10
For i = 0 To Me.List1.ListCount - 1
Printer.Print Me.List1.List(i)
Next
Printer.EndDoc
IIeIIa писал(а):Спасибо.
Неподскажеш , как вывести в определённой части листа ... Координаты как указать вопщем ?
Printer.CurrentX = 123
Printer.CurrentY = 456
FAKK2 писал(а):И еще, в инете, на форуме ругнуть человека очень просто. Я хочу посмотреть как у тебя хватит смелости меня оскорбить лицом к лицу.
RayShade писал(а):Эх, баню устраивать по каждому такому поводу, так и веников не напасешься
RayShade писал(а):А вот что же это вы до Троицы веники из березы режете? Не положено
RayShade писал(а):Да климат то тут не при чом
RayShade писал(а):Так, за городом живу уже лет 10 И баня, соответственно, имеется
Сейчас этот форум просматривают: Google-бот, SemrushBot и гости: 49