How to print using paint ?

Post

Posted
Rating:
#1 (In Topic #676)
tincho
Avatar
Regular
tincho is in the usergroup ‘Regular’
Hi,
I want to print in my local printer with paint from two sources an SVG file and a Paint class.
I use as base the Printing_Example from Cogier, in Gambas Farm, then i modify it.

Code (gambas)

  1. Public Sub ButtonPrint_Click()
  2.   If PrinterOne.Configure() Then Return
  3.   PrinterOne.Print
  5.  
  6. Public Sub PrinterOne_Draw()
  7.   Paint.DrawText(TextArea1.Text, 10, 10)

But vector images are not very well quality.
the modified code is:

Code (gambas)

  2. Private px As Float = 72 / 25.4
  3. Private xrect As New Rect(0, 0, 297, 210)
  4.  
  5. Public Sub Form_Open()
  6.   HSplit1.Layout = [1, 2]
  7.   img = Image.Load("./test.svg")
  9.  
  10. Public Sub Button1_Click()
  11.   Plotter.PaperHeight = 210
  12.   Plotter.PaperWidth = 297
  13.   Plotter.MarginBottom = 0
  14.   If Plotter.Configure() Then Return
  15.   Plotter.Print
  17.  
  18. Public Sub Plotter_Draw()
  19.   Paint.DrawImage(img, 0, 0, 297 * px, 210 * px,, xrect)

Attachment
Online now: No Back to the top
1 guest and 0 members have just viewed this.