关于打印机的设置，诸位帮帮忙！

Question

怎样在vb中使用代码得到打印机及其端口？
并且是在xp下的，要求能打出汉字具体过程是在vb设计的窗体中输入所需数据，然后通过a4的纸打印出来

Answer 1

Private Sub Command1_Click()
'Printer.PaperSize =    设置纸张大小
Printer.Print Text1.Text
Printer.EndDoc
End Sub

Answer 2

Private Sub Combo1_Click()
Dim p As Printer
For Each p In Printers      
   If p.DeviceName = Combo1.Text Then
      Set Printer = p    '选择待用打印机
      Exit Sub
   End If
Next
End SubPrivate Sub Form_Load()
Dim p As Printer   '获得所有可用打印机
For Each p In Printers
   Combo1.AddItem p.DeviceName
Next
End Sub