Código de Basic - Imprimir en una posición definida en la pagina

Imágen de perfil

Imprimir en una posición definida en la paginagráfica de visualizaciones


Basic

Actualizado el 28 de Enero del 2019 por Francisco (Publicado el 19 de Noviembre del 2014)
1.985 visualizaciones desde el 19 de Noviembre del 2014
Para GFA-BASIC.-
Esta herramienta permite imprimir un texto en una posición definida en la pagina. Ingresando X e Y de la misma. Al crear el formulario necesitara incorporar los siguientes controles.
3 Textbox llamados pos_x, pos_y , numero
4 Labels llamados lbl1 a lbl4
2 command llamados imprime y cmd1
un slider llamado sli1
2 checkbox llamados chk1 y chk2.

imprimir_en

Requerimientos

Requiere el compilador de 32bits GFA-Basic para compilar.
Se ejecuta en windows 95 en adelante. probado hasta win 10. Mediante Wine pude ejecutarlo desde Linix Debian pero no es eficiente.

1.0

Publicado el 19 de Noviembre del 2014gráfica de visualizaciones de la versión: 1.0
1.986 visualizaciones desde el 19 de Noviembre del 2014
estrellaestrellaestrellaestrellaestrella
estrellaestrellaestrellaestrella
estrellaestrellaestrella
estrellaestrella
estrella

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
Type ndts
  x As Integer
  y As Integer
  n As Integer
End Type
 
Public numerar As ndts
Dim valor As Integer
valor = 0
 
LoadForm frm1
Do
  Sleep
Loop Until Me Is Nothing
end
 
Sub frm1_Destroy
  End
End Sub
 
Sub frm1_Load
  lbl4.FontSize = 10
  sli1.Value = 10
  sli1.Max = 13
  Me.Left = 3000
End Sub
 
Sub chk1_Click
  If chk1.Value = 1 Then
    lbl4.FontBold = 1
  Else
    lbl4.FontBold = 0
  EndIf
End Sub
 
Sub chk2_Click
  If chk2.Value = 1 Then
    lbl4.FontItalic = 1
  Else
    lbl4.FontItalic = 0
  EndIf
End Sub
 
Sub sli1_Change
  lbl4.FontSize = sli1.Value
  lbl4.Caption = "FontSize=" + Trim(Str(sli1.Value))
End Sub
 
Sub imprimir(x As Single, y As Single, txt$)
  Printer.StartDoc "Imprimir en"
  Printer.StartPage
 
  Printer.ScaleMode = 1
  Printer.Left = 0
  Printer.Top = 0
  Printer.Font = lbl4.Font
  Printer.FontSize = sli1.Value
  Printer.CurrentX = x
  Printer.CurrentY = y
  Output = Printer
  Print txt$
  Output = frm1
  Printer.EndPage
  Printer.EndDoc
End Sub
 
Sub imprime_Click
  Dim v
  Dim x As Single, y As Single
  x = Val(pos_x.Text)  * (283.50)
  y = Val(pos_y.Text)  * (283.50)
  v = numero.Text
  imprimir x + 1, y, v
End Sub
 
Sub cmd1_Click
  Me.Close
End Sub



Comentarios sobre la versión: 1.0 (0)


No hay comentarios
 

Comentar la versión: 1.0

Nombre
Correo (no se visualiza en la web)
Valoración
Comentarios
Es necesario revisar y aceptar las políticas de privacidad

http://lwp-l.com/s2865