Распечатать строку
Visual Basic 6.0
Здрасте!
Как можно распечатать переменную типа String? Ну что с помощью Dialog'а это понятно, но как?
Спасибо!
Здрасте!
Как можно распечатать переменную типа String? Ну что с помощью Dialog'а это понятно, но как?
Спасибо!
просто положи на форму невидимый тект бокс, выводи в него свою переменную и печатай.
:) а как распечатать текстовое поле?))
:) printer.print text1.text :)
а если с помощью КомДалога то :
On Error GoTo Cansel
CommonDialog1.CancelError = True
CommonDialog1.Flags = cdlPDPageNums Or cdlPDCollate Or cdlPDNoSelection Or cdlPDAllPages
CommonDialog1.Copies = 2 'количество копий по умолчанию
CommonDialog1.Min = 0
CommonDialog1.Max = 10
CommonDialog1.FromPage = 1
CommonDialog1.ToPage = 2
CommonDialog1.ShowPrinter
printer.Orientation = CommonDialog1.Orientation 'ориентация листа
printer.Copies = CommonDialog1.Copies 'количество копий
printer.Print Text1.Text
printer.EndDoc
Exit Sub
Cansel:
If Err.Number = cdlCancel Then
Exit Sub
Else
MsgBox Err.Description
End If
вот и всё!
а если с помощью КомДалога то :
On Error GoTo Cansel
CommonDialog1.CancelError = True
CommonDialog1.Flags = cdlPDPageNums Or cdlPDCollate Or cdlPDNoSelection Or cdlPDAllPages
CommonDialog1.Copies = 2 'количество копий по умолчанию
CommonDialog1.Min = 0
CommonDialog1.Max = 10
CommonDialog1.FromPage = 1
CommonDialog1.ToPage = 2
CommonDialog1.ShowPrinter
printer.Orientation = CommonDialog1.Orientation 'ориентация листа
printer.Copies = CommonDialog1.Copies 'количество копий
printer.Print Text1.Text
printer.EndDoc
Exit Sub
Cansel:
If Err.Number = cdlCancel Then
Exit Sub
Else
MsgBox Err.Description
End If
вот и всё!
Спасибо!
всегда рад помочь.