Private Function Cabecera(Titulo as string, Vertical as boolean) as string DIM x AS Integer, Fichero as string, F as File DIM linea[22] AS String Linea[0] = " " Linea[1] = "" Linea[2] = " " Linea[4] = "" Linea[5] = " Aplicación " Linea[6] = "" Linea[6] = "  " Linea[7] = " " Linea[8] = "" IF vertical THEN '-------> decidir si el informe será vertical o apaisado linea[8] & = "
" ELSE linea[8] & = "
" ENDIF linea[9] = "" Linea[10] = " " Linea[11] = "" Linea[20] = "
  "< td> Linea[13] = "
" Linea[14] = " " Linea[15] = " " Li nea[16] = " " Linea[17] = " " Linea[18] = "

" & Left(ti tulo, 45 ) & "

 
Fecha de Impresió n: " & Day(Now) & "/" & Month(Now ) & "/" & Year(Now) & " " & Hour(Now) & ": " & Minute(Now) & "
" Linea[19] = "
" Linea[21] = "
" ' Obtener nuevo nombre para el fichero temporal Fichero=temp() 'Crear el fichero F=open fichero for create FOR x =0 TO 21 PRINT #F, Linea [x ] NEXT close F return Fichero END