Unidad 54. Impresión (II)

54.5. Procedimientos.

Los pasos que hemos nombrado antes son los siguientes:

–Inicio de proceso.

–Línea de identificación.

–Título

–Cabecera

–Detalle

–Pie de página

–Final de proceso

Vamos a ir describiendo cada uno de ellos de forma independiente, para luego verlos de forma conjunta.

Empecemos por el inicio de proceso.

Veamos ahora la línea de identificación.

Public Sub LineaIden(ByRef Cy As Single, _

ByRef ContPag As Integer, _

ByVal e As System.Drawing.Printing.PrintPageEventArgs)

Dim Fuente As Font = New Font("Arial", 6, FontStyle.Italic)

Dim Pincel As New System.Drawing.SolidBrush(System.Drawing.Color.Black)

Dim Alto As Long = e.PageSettings.PaperSize.Height

Dim Ancho As Long = e.PageSettings.PaperSize.Width

Dim Cx As Long ' Coordenada horizontal

Dim Texto As String

ContPag = ContPag + 1

Cy = CLng(Alto * 0.02) ' Avance de línea con respecto al borde superior

Cx = CLng(Ancho * 0.05)

Texto = NombreAplicacion & " Pag: " & ContPag & " " & Now

e.Graphics.DrawString(Texto, Fuente, Pincel, Cx, Cy)

Cy = Cy + Fuente.Height ' Avance de línea

End Sub

Esto creará una línea al inicio de cada hoja que permitirá saber fecha y hora de cuando se hizo el listado, que en muchas ocasiones es importante.

Además podemos colocar el nombre de la aplicación, el número de hoja, etc.

El siguiente paso será ver la cabecera.

La cabecera se compone de varias zonas.

Esto sería el mínimo de una cabecera.

Pero podemos encontrarnos con esto también.

Octubre-2010

Pág. 54.2