Fonctionnalité d'impression dans VB.NET – Bien choisir son serveur d impression
Dans cet article, nous verrons comment utiliser la fonctionnalité d’impression dans VB.NET.
-
3659
Dans cet article, nous verrons comment utiliser
fonctionnalité d'impression dans VB.NET.
C'est du code aspx: –
<%
@Page
La langue
= "VB"AutoEventWireup
= "faux"CodeFile= "Default2.aspx.vb"
Hérite= "Default2"
%>
<!
DOCTYPEhtml PUBLIQUE
"- // W3C // DTD XHTML 1.0 Transitional // EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html
xmlns= "http://www.w3.org/1999/xhtml">
<tête
courir vers= "serveur">
<Titre> </Titre>
</
tête><corps>
<forme
identifiant= "form1"
courir vers= "serveur">
<div>
<aspic:Panneau
ID= "Panneau"
courir vers= "serveur"
Couleur de fond= "# ffccff"
Largeur= "50%">
<table
cellpadding= "4"
espacement cellulaire= "4"
largeur= "100%"
aligner= "centre">
<tr>
<td
aligner= "centre">
Remplir toutes les informations
</td>
</tr>
<tr>
<td>
<aspic:Étiquette
ID= "LabelFName"
courir vers= "serveur"
Texte= "F_Name"
Largeur= "130px"> </aspic:Étiquette>
<aspic:Zone de texte
ID= "TextBoxName"
courir vers= "serveur"
Largeur= "315px"> </aspic:Zone de texte>
</td>
</tr>
<tr>
<td>
<aspic:Étiquette
ID= "LabelLName"
courir vers= "serveur"
Texte= "L_Name"
Largeur= "130px"> </aspic:Étiquette>
<aspic:Zone de texte
ID= "TextBoxCountry"
courir vers= "serveur"
Largeur= "315px"> </aspic:Zone de texte>
</td>
</tr>
<tr>
<td>
<aspic:Étiquette
ID= "LabelEmailId"
courir vers= "serveur"
Texte= "EmailId"
Largeur= "130px"> </aspic:Étiquette>
<aspic:Zone de texte
ID= "TextBoxEmailId"
courir vers= "serveur"
Largeur= "315px"> </aspic:Zone de texte>
</td>
</tr>
<tr
aligner= "right">
<td>
<aspic:Bouton
ID= "ButtonPrint"
courir vers= "serveur"
Texte= "Imprimer"
Caractères gras= "vrai"
Couleur de premier plan= "Bleu"
Sur clic= "ButtonPrint_Click"
/> <br
/>
</td>
</tr>
</table>
</aspic:Panneau>
</div>
</forme>
</
corps></html>
Ce code est VB: –
Importations
System.Data
Importations
Configuration du système
Importations
System.Web
Importations
System.Web.Security
Importations
System.Web.UI
Importations
System.Web.UI.WebControls
Importations
System.Web.UI.WebControls.WebParts
Importations
System.Web.UI.HtmlControls
Importations
System.IO
Importations
System.Text
Importations
System.Web.SessionState
————————————————– ————————————————– —
Partiel
Classe _Défaut
Hérite System.Web.UI.Page
————————————————– ————————————————– —
Protégé Sous
Page_Load (ByVal expéditeur
Comme Objet,
ByVal e Comme
EventArgs)
Fin Sous
————————————————– ————————————————– —
Protégé Sous
ButtonPrint_Click (ByVal expéditeur
Comme Objet,
ByVal e Comme
System.EventArgs) Poignées ButtonPrint.Click
Faible impression
Comme Contrôle = DirectCast(Session("impression"),
Contrôle)
PrintHelper.PrintWebControl (print)
Session("impression") = Panneau
ClientScript.RegisterStartupScript (Moi.[GetType](),
"sur clic",
"")
Fin Sous
Fin
Classe
————————————————– ————————————————– —
Utilisation de Helper: –
Nous allons créer la classe d'assistance.Dans
cette classe, j'ai fait une méthode 'PrintWebControl'. Avec cette méthode, nous pouvons imprimer n’importe
Contrôle du serveur comme Datalist, Image, Textbox, Panel etc.
Importations
System.Data
Importations
Configuration du système
Importations
System.Web
Importations
System.Web.Security
Importations
System.Web.UI
Importations
System.Web.UI.WebControls
Importations
System.Web.UI.WebControls.WebParts
Importations
System.Web.UI.HtmlControls
Importations
System.IO
Importations
System.Text
Importations
System.Web.SessionState
Importations
Microsoft.VisualBasic
Publique
Classe PrintHelper
Publique partagé
Sous PrintWebControl (ByVal
impression Comme Contrôle)
PrintWebControl (imprimer, Chaîne.Vide)
Fin Sous
Publique partagé
Sous PrintWebControl (ByVal
impression Comme Contrôle,
ByVal Scénario Comme
Chaîne)
Faible stringWrite
Comme Nouveau
StringWriter ()
Faible htmlWrite
Comme Nouveau
System.Web.UI.HtmlTextWriter (stringWrite)
Si Type de
impression Est WebControl
ensuite
Faible webControl
Comme Nouveau
Unité (100, UnitType.Percentage)
DirectCast(impression,
WebControl) .Width = webControl
Fin Si
Faible page
Comme Nouveau
Page()
page.EnableEventValidation = Faux
Si Script <>
Chaîne.Vide ensuite
page.ClientScript.RegisterStartupScript (page.[GetType](),
"PrintJavaScript", Script)
Fin Si
Faible htmlForm
Comme Nouveau
HtmlForm ()
page.Controls.Add (htmlForm)
htmlForm.Attributes.Add ("courir vers",
"serveur")
htmlForm.Controls.Add (print)
page.DesignerInitialize ()
page.RenderControl (htmlWrite)
Faible strHTML
Comme Chaîne = stringWrite.ToString ()
HttpContext.Current.Response.Clear ()
HttpContext.Current.Response.Write (strHTML)
HttpContext.Current.Response.Write ("")
HttpContext.Current.Response.[End]()
Fin Sous
Fin
Classe
Commentaires
Laisser un commentaire