And how to print a screenshot with gb.report: the code :
Public Sub Button1_Click() Dim hImg As Image Dim hReport As New Report Dim hReportLabel As New ReportLabel(hreport) Dim hRepImg As New ReportImage(hReport) hreport.Orientation = Printer.Landscape hreport.Padding = ReportPadding["2 cm"] hReport.Spacing = "1 cm" hImg = Desktop.Screenshot().Image hReportLabel.Text = "MyScreenSHot" hReportLabel.Autoresize = True hReportLabel.Alignment = Align.Center hReportLabel.Font.Size = 24 hRepImg.Image = hImg hRepImg.Autoresize = True hRepImg.Stretch = Report.Proportional hRepImg.Expand = True hReport.Preview End Well i can do more short (no formating) dim hImg as new reportimage(report) hImg.Image = desktop.screenshot() himg.strech=report.proportional himg.expand=true report.preview()
report_screenshot-0.0.1.tar.gz
Description: GNU Zip compressed data
------------------------------------------------------------------------------ Live Security Virtual Conference Exclusive live event will cover all the ways today's security and threat landscape has changed and how IT managers can respond. Discussions will include endpoint security, mobile security and the latest in malware threats. http://www.accelacomm.com/jaw/sfrnl04242012/114/50122263/
_______________________________________________ Gambas-user mailing list Gambas-user@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/gambas-user