Già fatto ho inserito everione e gli ho dato tutti i permessi ...

Stesso messaggio ....

Impostazioni di accesso alla stampante 'Microsoft XPS Document Writer' non valide.

Continua a darmi il problema ...

Impostazioni di accesso alla stampante 'Microsoft XPS Document Writer' non valide.

Traccia dello stack:


[InvalidPrinterException: Impostazioni di accesso alla stampante 'Microsoft XPS Document Writer' non valide.]
System.Drawing.Printing.PrinterSettings.GetHdevmodeInternal() +220613
System.Drawing.Printing.PrinterSettings.GetHdevmode(PageSettings pageSettings) +48
System.Drawing.Printing.PrintController.OnStartPrint(PrintDocument document, PrintEventArgs e) +79
System.Windows.Forms.PrintControllerWithStatusDialog.OnStartPrint(PrintDocument document, PrintEventArgs e) +31
System.Drawing.Printing.PrintController.Print(PrintDocument document) +217
System.Drawing.Printing.PrintDocument.Print() +111
My_DiaMond_Cartellino_Mobile.Page_Load(Object sender, EventArgs e) +182
System.Web.UI.Control.OnLoad(EventArgs e) +91
System.Web.UI.Control.LoadRecursive() +74
System.Web.UI.Page.ProcessRequestMain(Boolean includeStagesBeforeAsyncPoint, Boolean includeStagesAfterAsyncPoint) +2207

Imports System.Drawing
Imports System.Drawing.Drawing2D
Imports System.Drawing.Printing

Public Class My_DiaMond_Cartellino_Mobile

Inherits System.Web.UI.Page

' ------------ Modifica 01/01/2012 S-G - HTML5

Dim My_DataView As DataView


Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

Dim My_PrintDocument As New PrintDocument()

AddHandler My_PrintDocument.PrintPage, AddressOf Me.Etichetta_Imballo

My_PrintDocument.PrinterSettings.PrinterName = "\\Andrea\HP LaserJet 5000 Series PCL 5"

Try

My_PrintDocument.Print()

Catch My_DocumentException As InvalidPrinterException

System.Web.HttpContext.Current.Session("My_Error") = "Label_010"
System.Web.HttpContext.Current.Session("My_Error_01") = My_DocumentException.Message

Label_Resto.Text = My_DocumentException.Message

End Try

End Sub

Private Sub Etichetta_Imballo(sender As Object, e As PrintPageEventArgs)

Dim My_Folder_SkinFile As String = System.Configuration.ConfigurationManager.AppSettings("Folder_SkinFile")
Dim My_MapPath_SkinFile As String = Server.MapPath(My_Folder_SkinFile)

Dim My_StringFormat As New StringFormat(StringFormatFlags.NoClip)

My_StringFormat.Alignment = StringAlignment.Far

Dim My_Image As Image = Image.FromFile(My_MapPath_SkinFile & "Page_Cartellino_003.Jpg")
Dim My_Graphics As Graphics = Graphics.FromImage(My_Image)

Dim My_Array As Array = Split(Label_Etichetta_Imballo.Text, ";")

Dim My_Text As String = ""

My_Text = "Indirizzo / Address / Adresse :" & vbLf & vbLf
My_Text &= " " & My_Array(0) & vbLf
My_Text &= " " & My_Array(1) & vbLf
My_Text &= " " & My_Array(2) & vbLf & vbLf
My_Text &= " " & My_Array(3) & vbLf
My_Text &= " " & My_Array(4) & " " & My_Array(5) & " " & My_Array(6)

My_Graphics.DrawString(My_Text, New Font("Clibri", 14, FontStyle.Bold), New SolidBrush(Color.Black), 80, 100)
My_Graphics.DrawString("Package :", New Font("Clibri", 14, FontStyle.Bold), New SolidBrush(Color.Black), 1700, 100, My_StringFormat)
My_Graphics.DrawString("A", New Font("Clibri", 100, FontStyle.Bold), New SolidBrush(Color.Black), 1750, 300, My_StringFormat)

e.Graphics.DrawImage(My_Image, New PointF(0.0F, 0.0F))

My_Graphics.Dispose()

End Sub

End Class