Печать принудительной печати на бумаге юридического формата

Question

Можно ли это сделать программно и без создания пользовательского формата PaperSize, но с использованием предопределенных размеров? Известно, что принтер поддерживает бумагу формата Legal.
Есть ли более элегантное решение, чем зацикливание по размерам бумаги принтера и сканирование для подстроки Legal?

UPDATE Это то, что я в конечном итоге делает:

For i = 0 To PrintDocument1.PrinterSettings.PaperSizes.Count - 1 
    If PrintDocument1.PrinterSettings.PaperSizes(i).RawKind = PaperKind.Legal Then 
     PrintDocument1.DefaultPageSettings.PaperSize = PrintDocument1.PrinterSettings.PaperSizes(i) 
    Exit For 
    End If 
Next 

Answer 1

Это запись по умолчанию в PaperKind enum:

PaperLegal 

(юридические, 8 1/2 от 14 дюймов.)

Answer 2

Я знаю, что C# лучше, чем VB.NET, и в C# я бы это сделал с помощью LINQ. Для моего собственного интереса, по крайней мере, вот две попытки синтаксиса LINQ VB.NET:

Dim paperSize as PaperSize = _ 
    From ps in PrintDocument1.PrinterSettings.PaperSizes _ 
    Where ps.RawKind = PaperKind.Legal _ 
    Select ps Take 1 
If paperSize IsNot Nothing 
    DocPrint.DefaultPageSettings.PaperSize = paperSize 
End If 

или

Dim paperSize = PrintDocument1.PrinterSettings.PaperSizes _ 
       .FirstOrDefault(Function(ps) ps.RawKind = PaperKind.Legal) 
If paperSize IsNot Nothing 
    DocPrint.DefaultPageSettings.PaperSize = paperSize 
End If 

Я предполагаю, что синтаксис, ни один из них может работать, и я закончил с по крайней мере, столько строк кода, но оно сохраняет запись цикла.