How to Print Text or Banner in WPF using F#

Today I am explaining that how you can print a Banner or Text in WPF using F#. Document, Banner or Text Printing Needs a PrintDialogBox and Print Commands. Here in F# you need only write code and add some References to Perform a print operation. Steps are given Below.

If you want to Print the Text or Banner. You will write the below code Block

// For Printing Text or Banner
let stk = new StackPanel()
let wndw = new Window(Title="How to Print Banner In WPF using F#",
SizeToContent = SizeToContent.WidthAndHeight,
Content=stk)

let txtbx = new TextBox(Width=250.0,
Margin= new Thickness(12.0))
txtbx |> stk.Children.Add |> ignore

let butn = new Button(Content = "Click To Print ",
Margin = new Thickness(12.0),
HorizontalAlignment = HorizontalAlignment.Center)
butn |> stk.Children.Add |> ignore

butn.Click.Add(fun _ ->
let dlg = new PrintDialog()
let retval = dlg.ShowDialog().GetValueOrDefault()
if retval then
let prntkt = dlg.PrintTicket
prntkt.PageOrientation <- new Nullable<PageOrientation>(PageOrientation.Portrait)

If you want to Create newBanner Paginator Object. The below Code Block will Work.

// Create new BannerDocumentPaginator object.
let paginator = new DocPrintBann(Text=txtbx.Text)
paginator.PageSize <- new Size(dlg.PrintableAreaWidth,
dlg.PrintableAreaHeight)

dlg.PrintDocument(paginator, "Banner: " + txtbx.Text))
txtbx.Focus() |>ignore

Note: The Complete code you can see in Step 4.

Step 1: Firstly Open a new project in F# using Visual Studio 2010. Select F# WPF Application template and give name to the project like below image.

Step 2: Now add below given references to your project by right clicking on your project in solution explorer.

PresentationCore
PresentationFramework
ReachFramework
System
System.Printing
System.Xaml
WindowsBase

Step 3: When you add all these References, your Solution Explorer will look like below image.

Step 4: Then click on Program.fs file in Solution Explorer and write below given code in Program.fs window, Your window will look like below images.

#light

open System
open System.Globalization
open System.Printing
open System.Windows
open System.Windows.Controls
open System.Windows.Documents
open System.Windows.Input
open System.Windows.Media

type DocPrintBann() = class
inherit DocumentPaginator()

let mutable text = ""
let mutable fce = new Typeface("")
let mutable mxSze = new Size(0.0,0.0)
let mutable (sizePage:Size) = new Size(0.0,0.0)

let gtFrmtTxt (ch:char) (face:Typeface) (em:double) =
new FormattedText(ch.ToString(),
CultureInfo.CurrentCulture,
FlowDirection.LeftToRight,
face,
em,
Brushes.Black)

member this.Text
with get() = text
and set value = text <-value

member this.Typeface
with get() = fce
and set value = fce <-value

override this.IsPageCountValid
with get() =
text.ToCharArray() |> Seq.iter (fun ch ->
let formtxt = gtFrmtTxt ch fce 100.0
mxSze.Width <- Math.Max(mxSze.Width,formtxt.Width)
mxSze.Height <- Math.Max(mxSze.Height ,formtxt.Height )
)
true

override this.PageCount
with get() = if text = null then 0 else text.Length

override this.PageSize
with get() = sizePage
and set value = sizePage <- value

override this.Source
with get() = null

override this.GetPage (numPage) =
let vsDrw = new DrawingVisual()
using (vsDrw.RenderOpen()) (fun dc ->
let factor = Math.Min((this.PageSize.Width - 96.0) / mxSze.Width,
(this.PageSize.Height - 96.0) / mxSze.Height)
let formtxt = gtFrmtTxt (text.Chars numPage) fce (factor*100.0)
let ptText = new Point((this.PageSize.Width - formtxt.Width) / 2.0,
(this.PageSize.Height - formtxt.Height) / 2.0)
dc.DrawText(formtxt,ptText))
//
new DocumentPage(vsDrw)

end

// For Printing Text or Banner
let stk = new StackPanel()
let wndw = new Window(Title="How to Print Banner In WPF using F#",
SizeToContent = SizeToContent.WidthAndHeight,
Content=stk)

let txtbx = new TextBox(Width=250.0,
Margin= new Thickness(12.0))
txtbx |> stk.Children.Add |> ignore

let butn = new Button(Content = "Click To Print ",
Margin = new Thickness(12.0),
HorizontalAlignment = HorizontalAlignment.Center)
butn |> stk.Children.Add |> ignore

butn.Click.Add(fun _ ->
let dlg = new PrintDialog()
let retval = dlg.ShowDialog().GetValueOrDefault()
if retval then
let prntkt = dlg.PrintTicket
prntkt.PageOrientation <- new Nullable<PageOrientation>(PageOrientation.Portrait)

// Create new BannerDocumentPaginator object.
let paginator = new DocPrintBann(Text=txtbx.Text)
paginator.PageSize <- new Size(dlg.PrintableAreaWidth,
dlg.PrintableAreaHeight)

dlg.PrintDocument(paginator, "Banner: " + txtbx.Text))
txtbx.Focus() |>ignore

#if COMPILED
[<STAThread()>]
do
let app = Application() in
app.Run(wndw) |> ignore
#endif

Step 5: Now press F5 to execute the code.

Output

Summary

In this article I have Discussed that how to Print a Banner or Text in WPF using F#.