====紧急求救，如何获取默认的打印机名称=====

Question

这样列出的是IIS所在的服务器的默认打印机......

Answer 1

没有问题啊，你获得的是web服务器的打印机，并非浏览器端的打印机
\\192.168.1.119\HP LaserJet M1319f MFP

Answer 2

web程序显然没有获取客户端硬件信息的权限,要么用ActiveX,但你要客户端打印机干什么?如果要打印的话,调用浏览器的print()函数比较好

Answer 3

各位我解释一下：
我现在用水晶报表做了一个程序，我把打印机的默认纸张尺寸都是自定义的。可是打印的时候却都成了A4的。我后来改动了一下，可以默认成我自定义的来打印了，但是需要知道打印机的名称，程序如下，VB脚本的：Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.Shared
Imports System.Data
Imports System.Data.SqlClient
Partial Class _Default
    Inherits System.Web.UI.Page
    Private oRpt As New ReportDocument()
    Dim rawKind As Integer  Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim prtdoc As New Drawing.Printing.PrintDocument
        Dim strDefaultPrinter As String        strDefaultPrinter = prtdoc.PrinterSettings.PrinterName
    '此为默认的打印机名称
        Dim doc As New System.Drawing.Printing.PrintDocument
        doc.PrinterSettings.PrinterName = strDefaultPrinter
        rawKind = 1
        'rawKind 为我默认纸张尺寸，名称：qisi
        Dim i As Integer
        i = 0
        Do Until i = doc.PrinterSettings.PaperSizes.Count
            Response.Write(doc.PrinterSettings.PaperSizes(i).PaperName & "test")
            If doc.PrinterSettings.PaperSizes(i).PaperName = "qisi" Then
                rawKind = doc.PrinterSettings.PaperSizes(i).RawKind
            End If            i = i + 1
        Loop Dim reportPath As String = Server.MapPath("charge_sj_cgfy_new.rpt")
        oRpt.Load(reportPath)
 Dim dsdataSet As New DataSet1()        Dim daOrders As New Data.SqlClient.SqlDataAdapter(sql, MyConnection)        daOrders.Fill(dsdataSet, "t_sj")
        Dim pszPagerSize As New System.Drawing.Printing.PaperSize
        '使用“报表引擎”对象模型将填充的数据集,传递给报表
        oRpt.SetDataSource(dsdataSet)
               CrystalReportViewer1.ReportSource = oRpt
              oRpt.PrintOptions.PaperSize = rawKind '把纸张尺寸赋给oRpt