reports
I use the bulid in GUID+ features to write custom reports. Because Im not proficant at crystal and I like to control my output. Heres
a sample:
Imports System.Drawing
Imports System.Drawing.Drawing2D
Imports System.Drawing.Text
Dim pd As PrintDocument = New PrintDocument()
AddHandler pd.PrintPage, AddressOf Me.pd_PrintPage
This is the grid tool I used to line up the text---------------------------
pen for drawing grid ------------------------------------
Dim myPen2 As New Pen(Color.Gray, 1)
For i = 1 To 100
y1 = 1
y2 = i * 20
ev.Graphics.DrawLine(myPen2, 1, y2, 1000, y2)
ev.Graphics.DrawLine(myPen2, y2, 1, y2, 1500)
ev.Graphics.DrawString(y2, vbFont3, New SolidBrush(ForeColor), 1, y2)
ev.Graphics.DrawString(y2, vbFont3, New SolidBrush(ForeColor), y2, 500)
Next i