[Gambas-user] Print probleem with pictures/text

[Fabien Bodard]

Le Jeudi 20 Juillet 2006 07:41, Ron Onstenk a écrit :
 in fact i want to help you... but i don't understand what you say .... :/

Can you send me your code sources ?
i will see what i can doo !

Fabien


> I use A4 paper
> On that sheet should be 2 sections.
> Every section consists of a picture and some labels with a
> textbox as overlay on the picturet i
> The first step was using a Me.Grab(ou... buact i want to help y) on the the 
form and was printed OK.
> Then I add the second section.
> I had of course to change the height of the form.
> Using the .Grab() shows me garbage on the bottom.
> The bottom of the form was below the taskbar.
>
> Then I did use a stand alone Image
> try to put from both picturebox a .grab() in the Image.
> The second replace the first one.
> Using Picture, Panel, Scrollview and Drawingarea did not solve the replace.
>
>
> from the print project
> ' Name: ModulePrinting
> ' Author: Timothy Marshal-Nichols
>
>
> PUBLIC SUB PrintImage(img AS Image, OPTIONAL FitToPage AS Boolean)
>   DIM imageToPrint AS Image
>   DIM imageWidth AS Integer
>   DIM imageHeight AS Integer
>   DIM scaleIsotropic AS Float
>   ' Display printer dialog
>   IF Printer.Setup() THEN RETURN
>   INC Application.Busy
>   ' Get image size for the printer resolution
>   imageWidth = (img.Width * Printer.Resolution) / Desktop.Resolution
>   imageHeight = (img.Height * Printer.Resolution) / Desktop.Resolution
>   ' Adjust image size if it does not fit on the printer page
>   ' Also if the fit to page option is set fill the page with the image
>   IF FitToPage OR imageWidth > Printer.Width OR imageHeight >
> Printer.Height THEN ' Scale Isotropic, keep aspect ratio of the image
>     scaleIsotropic = Min(Printer.Width / imageWidth, Printer.Height /
> imageHeight) imageWidth *= scaleIsotropic
>     imageHeight *= scaleIsotropic
>   END IF
>   ' Scale image
>   imageToPrint = img.Stretch(imageWidth, imageHeight, TRUE)
>   ' Draw image centred on printer page
>   Draw.Begin(Printer)
>   Draw.Image(imageToPrint, (Printer.Width - imageWidth) / 2,
> (Printer.Height - imageHeight) / 2) Draw.End
>   DEC Application.Busy
> END
>
>
> This was usable to print my first trial with 1/2 A4 sheet
>
> PUBLIC SUB PrintImage(img AS Image,img2 AS Image, OPTIONAL FitToPage AS
> Boolean) DIM imageToPrint AS Image
>   DIM imageToPrint2 AS Image
>
> ......
> 'STATIC SUB Image ( Image AS Image, X AS Integer, Y AS Integer
>      [ , SrcX AS Integer, SrcY AS Integer, SrcWidth AS Integer, SrcHeight
> AS Integer ] )
>
>
>   Draw.Begin(Printer)
> '                image                    x                   y   srcx srcy
>  srcw        srch Draw.Image(imageToPrint,  (Printer.Width - imageWidth) /
> 2, 0,   0,   0,   imageWidth, 528) Draw.Image(imageToPrint2, (Printer.Width
> - imageWidth) / 2, 528, 0,   0,   imageWidth, 528) Draw.End
>
>
> Same result. not working or not correct.
>
> Basic I need to print two sections as described above.
> I do have a Form with the size of 1/2 A4.
> The place of the labels and textbox are adjustable to fit the image below.
>
> Next trial:
> Printing text using Draw.Text
>
> STATIC SUB Text ( Text AS String, X AS Integer, Y AS Integer
> 	[ , Width AS Integer, Height AS Integer, Alignment AS Integer ] )
>
> If you specified the optional parameters, then the text is constrained to
> the given rectangle, and aligned according to the Alignment parameter.
>
> The original text in the section is around 6 lines and on the left half of
> the section. It is not in a boxed way but 1 long line.
>
> I did try also to use the draw.clip
>
>   .DrawClip
>   This virtual class is used for defining the clipping area of a drawing.
>   The drawing methods never draw outside of the clipping area.
>
>   STATIC SUB .DrawClip ( X AS Integer, Y AS Integer, Width AS Integer,
> Height AS Integer )
>
> draw.clip(100, 100, 100, 100) as trial example.
> No success. Printing one line full width.
>
> The screen is 96 dpi and the printer is, with gambas printer.resolution,
> 600 dpi. (The print test say 300 in cups, HP Laserjet 4si)
>
> Using for the positions with Draw the pixel is multiply by
> (printer.resolution/desktop.resolution) The tests I did and when there is
> something printed where on the right positions.
>
>
> But also not allways the print did work on Draw.End
> It looks to me the case when Draw positions are out of page values.
> (Printing beside the paper sheet.
> In console (xterm) no report of error to see.
>
> What me is irritating is that i'm not able to Draw two pictures on one
> sheet. Direct printing of the texts in parts of the section/sheet are not
> clipped/wrapped in the dimensions I wish, and that should be regarding
> Draw.Clip explanation.
>
> Why Pictures? Well I need 4 upper sections with 8 lower sections and they
> contain logo and object diagrams.
> Bit stupid to preprint 32 different sheets.
> Beside the object diagrams does not allow those also preprinted.
> The labels and textbox are on different places for the objects.
>
> They are used to be able to place them graphically and the textbox for the
> values need for that print.
> The client that will use it is a ordinary user and may/can not change
> program. The press a 'Safe Layout' and/or 'Print This' button.
>
> Is there someone that can help me to print those 2 pictures and place the
> text over the picture in a boxed way
>
> I'm desperate crying for help after 2 weeks trial/error 6hours/day in a
> not so very friendly environment for programming (and cant change it :( ).
>
> Ron
>
>
> -------------------------------------------------------------------------
> Take Surveys. Earn Cash. Influence the Future of IT
> Join SourceForge.net's Techsay panel and you'll get the chance to share
> your opinions on IT & business topics through brief surveys -- and earn
> cash
> http://www.techsay.com/default.php?page=join.php&p=sourceforge&CID=DEVDEV
> _______________________________________________
> Gambas-user mailing list
> Gambas-user at lists.sourceforge.net
> https://lists.sourceforge.net/lists/listinfo/gambas-user