How to set width of Datareport ? [ All Languages » VB »  Printing] Total Hit ( 3106) Rate this article:     Poor     Excellent   Submit Your Question/Comment about this article Rating

Following code will set custom width and height for VB Datareport for a specified Printer Click here to copy the following block Function SetReportSize(W As Integer, H As Integer, Optional PrinterName = "")   Dim x As Printer   If PrinterName <> "" Then     For Each x In Printers       Debug.Print x.DeviceName       If x.DeviceName = PrinterName Then         Set Printer = x         'I think the printer can be altered to OKI5530,         'and when i insert a msgbox printer.devicename, it is OKI5530,         'but the datareport print to the system default printer too.         Exit For       End If     Next   End If   Printer.Height = H '-- 7200   Printer.Width = W '--13097 End Function

Related Article(s)

Submitted By : Nayan Patel  (Member Since : 5/26/2004 12:23:06 PM)
	Job Description : He is the moderator of this site and currently working as an independent consultant. He works with VB.net/ASP.net, SQL Server and other MS technologies. He is MCSD.net, MCDBA and MCSE. In his free time he likes to watch funny movies and doing oil painting.
View all (893) submissions by this author  (Birth Date : 7/14/1981 )