http://www.dapha.net这里的方法不行,哪位朋友可以帮帮忙,谢谢

解决方案 »

  1.   

    CommonDialog1.ShowPrinter里面就有选择打印机(OS是2k)
      

  2.   

    Set Printer = Printers(index) '?
      

  3.   

    打印机:
    http://support.microsoft.com/default.aspx?scid=kb;EN-US;Q167735
      

  4.   

    ***************打印机***************************
    取得打印机:
    If Printers.Count < 1 Then
        MsgBox "系统没有安装打印机!", vbCritical, App.Title
        Unload Me
        Exit Sub
    End IfDim Prns As Printer
    For Each Prns In Printers
        List1.AddItem Prns.DeviceName
    Next
    List1.ListIndex = 0
      

  5.   

    现在知道打印名称和有没有打印机了,但我怎样设打印机为默认的打印机呢?
    另外,有没有办法不设为默认打印机,而是从list中选择一个打印机,然后再打印呢?谢谢