Dim st As new system.Drawing.printing.PrinterSettings st.PrinterName =e.Sender.text Dim dyj As WinForm.ComboBox = e.Form.Controls("ComboBox3") dyj.Items.Clear For Each ps As System.Drawing.Printing.PaperSize In st.PaperSizes dyj.Items.Add(ps.PaperName)