Print Custom Page : Print « Windows Presentation Foundation « VB.Net Tutorial

Home
VB.Net Tutorial
1.Language Basics
2.Data Type
3.Operator
4.Statements
5.Date Time
6.Class Module
7.Development
8.Collections
9.Generics
10.Attributes
11.Event
12.LINQ
13.Stream File
14.GUI
15.GUI Applications
16.Windows Presentation Foundation
17.2D Graphics
18.I18N Internationlization
19.Reflection
20.Regular Expressions
21.Security
22.Socket Network
23.Thread
24.Windows
25.XML
26.Database ADO.net
27.Design Patterns
VB.Net Tutorial » Windows Presentation Foundation » Print 
16.124.1.Print Custom Page
<Window x:Class="Printing.PrintCustomPage"
    xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
    xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
    Title="PrintCustomPage" Height="300" Width="300">
    <StackPanel>
      <TextBox Name="txtContent" Margin="3" TextWrapping="Wrap" VerticalScrollBarVisibility="Visible">
        this is a test
      </TextBox>
      <Button Grid.Row="1" Margin="3" Padding="5" Click="cmdPrint_Click" VerticalAlignment="Top">Print</Button>
    </StackPanel>
</Window>
//File:Window.xaml.vb
Imports System
Imports System.Collections.Generic
Imports System.Text
Imports System.Windows
Imports System.Windows.Controls
Imports System.Windows.Data
Imports System.Windows.Documents
Imports System.Windows.Input
Imports System.Windows.Media
Imports System.Windows.Media.Imaging
Imports System.Windows.Shapes
Imports System.Globalization

Namespace Printing
  Public Partial Class PrintCustomPage
    Inherits System.Windows.Window
    Public Sub New()
      InitializeComponent()
    End Sub
    Private Sub cmdPrint_Click(sender As Object, e As RoutedEventArgs)
      Dim printDialog As New PrintDialog()
      If printDialog.ShowDialog() = True Then
        Dim visual As New DrawingVisual()
        Using dc As DrawingContext = visual.RenderOpen()
          Dim text As New FormattedText(txtContent.Text, CultureInfo.CurrentCulture, FlowDirection.LeftToRight, New Typeface("Calibri")20, Brushes.Black)

          text.MaxTextWidth = printDialog.PrintableAreaWidth / 2
          Dim point As New Point(100100)

          dc.DrawText(text, point)

          dc.DrawRectangle(Nothing, New Pen(Brushes.Black, 1), New Rect(2002005050))
        End Using

        printDialog.PrintVisual(visual, "A Custom-Printed Page")
      End If
    End Sub
  End Class
End Namespace
WPF Print Custom Page
16.124.Print
16.124.1.Print Custom PagePrint Custom Page
16.124.2.Print Scaled VisualPrint Scaled Visual
16.124.3.Print Without User InterventionPrint Without User Intervention
java2s.com  | Contact Us | Privacy Policy
Copyright 2009 - 12 Demo Source and Support. All rights reserved.
All other trademarks are property of their respective owners.