コンボボックスの選択値からですけどこれでいけた気がするんですが…
PrintDocument.DefaultPageSettings.PaperSource = CType(ComboBox_Tray.SelectedItem, Printing.PaperSource)

For Each PpSc In PrintDocument.PrinterSettings.PaperSources
ComboBox_Tray.Items.Add(PpSc)
Next