- Код: Выделить всё
'выбираем принтер
PrintDocument1.PrinterSettings.PrinterName = "Мои принтер"
Dim ps As PaperSize
'пробегаем все размеры
For Each ps In PrintDocument1.PrinterSettings.PaperSizes
If ps.PaperName = "Мои Размер" Then
'если находим такои размер - ставим его по умолчанию
PrintDocument1.DefaultPageSettings.PaperSize = ps
'а вот если не находим - мне надо создать и выбрать его
'Вопрос - как ето сделать
End If
Next
как изменитъ/создать размер бумаги ?
В МСДНе стоит - надо считать размеры в комбобокс
внести новыи размер в комбо бокс
и использовать выбранныи
PaperSize - класс
Задает размер бумажного листа.
В следующем примере поле со списком comboPaperSize заполняется поддерживаемыми принтером размерами бумаги. Кроме того, настраиваемый размер бумаги создается и добавляется в поле со списком.
- Код: Выделить всё
Dim pkSize As PaperSize
For i = 0 to printDoc.PrinterSettings.PaperSizes.Count - 1
pkSize = printDoc.PrinterSettings.PaperSizes.Item(i)
comboPaperSize.Items.Add(pkSize)
Next
' Create a PaperSize and specify the custom paper size through the constructor and add to combobox.
Dim pkCustomSize1 As New PaperSize("Custom Paper Size", 100, 200)
comboPaperSize.Items.Add(pkCustomSize1)
но мне не надо комбо бокс
Бред какоито получается
Помогите кто знает
Спасибо
