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

Atrás  Inicio  Adelante






Página inicial  Cursos Informática Gratuitos

Síguenos en:   Facebook       Sobre aulaClic            Política de Cookies