Как печатать напрямую, не выходя на печать в диалоговом окне vb.net?

Question

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

Мой код ниже печатает документ стандартного размера (850, 1100), даже если я назначаю значение850, 1300.

Dim defaultsize As New Printing.PaperSize("Long Bond Paper", 850, 1300)
Dim pd = PrintDocument1
Dim ppd = PrintDialog1
ppd.Document = pd
pd.PrinterSettings.DefaultPageSettings.PaperSize = defaultsize

Однако, если я использую приведенный ниже код, он проходит через диалоговое окно печати, и я выбираю размер бумаги из комбинированного окна, он будет печатать документ на 850,Бумага 1300.

If comboPaperSize.SelectedIndex <> -1 Then
   PrintDocument1.DefaultPageSettings.PaperSize = _
   PrintDocument1.PrinterSettings.PaperSizes.Item(comboPaperSize.SelectedIndex)
End If

Как можно распечатать документ со значением 850, 1300 напрямую, не переходя в диалоговое окно печати?.