Диалог настройки принтера

[temur]

Такой вопрос если можно? Не буду заводить отдельно тему... [Нет уж - прим. мод.]
Как вывести окно настроек принтера? Только не через PrintDialog.

[Viper]

А чем PrintDialog не угодил? Через соответствующую функцию API можно вывести это окно.

[temur]

Нужно вывести из формы. напиши если не трудно...

[Viper]

Функция называется PrintDlg. Что значит вывести из формы?

[temur]

Мне нужно вывести диалог настройки принтера, потому что я не использую ПринтДиалог. Распечатка будет происходить прямо из формы, и хотелось бы иметь возможность поменять настройки принтера через его родной диалог настройки.

[Viper]

Мне нужно вывести диалог настройки принтера, потому что я не использую ПринтДиалог.

Что то я окончательно перестаю понимать вопрошающего...

Ессли уж так не хочется юзать стандартный диалог FW, то вот список функций API которые выводят его же:

PrintDlg
PrintDlgEx
PageSetupDlg

и список структур нужных при этом:

PRINTDLG
PRINTDLGEX
PAGESRTUPDLG

[temur]

Да не это мне нужно это я знаю. Вот этот диалог на картинке

[student-uni]

Ищи в МСДНе PrintDocument
Кинь его на форму,
через- него можно

я делал полностью редактируемый макет

вот куски кода
извини, полный код полон всякой всячины
Покрути эти объекты

Код: Выделить всё


Imports System.Drawing
Imports System.Drawing.Image
Imports System.Drawing.Printing


Dim a As New Printing.PageSettings

        Dim b As System.Drawing.Printing.PrinterSettings.StringCollection = a.PrinterSettings.InstalledPrinters

 

PrintPreviewControl1.Refresh()


PrintDocument1.PrinterSettings.PrinterName = "HPDESKJET"

PrintDocument1.DefaultPageSettings.PaperSize = comboPaperSize.SelectedItem

PrintPreviewControl1.Document = PrintDocument1
            PrintPreviewControl1.Zoom = 1



Dim ps As PaperSize
PrintDocument1.DefaultPageSettings.PaperSize = comboPaperSize.SelectedItem
Dim pkCustomSize1 As New PaperSize("CustomDrucker", MilimetersNachZoll(Convert.ToDecimal(TextBox24.Text)), MilimetersNachZoll(Convert.ToDecimal(TextBox25.Text)))

comboPaperSize.Items.Add(pkCustomSize1)

        comboPaperSize.Text = "CustomDrucker"


вот так шрифты достаем

Dim f As System.Drawing.Text.InstalledFontCollection = New _
          System.Drawing.Text.InstalledFontCollection

        Dim fFamily As FontFamily

        For Each fFamily In f.Families

            ComboBox2.Items.Add(fFamily.Name)

        Next



ещё раз пардон за точ то всё свалил в кучу

[vit.b]

Возми этот пример (он кстати в MSDN есть) он тебе точно поможет

[temur]

vit.b
Я знаю как юзать принтинг, мне нужно вывести диалог настройки принтера, который находится в драйвере принтера, напрямую нажатием кнопки, я написал свой принт диалог и хочется в нем вызвать этот диалог.