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 20 de Noviembre del 2014 por Francisco (Creado el 19 de Noviembre del 2014)
1.351 visualizaciones desde el 19 de Noviembre del 2014. Una media de 14 por semana
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

Se ejecuta en windows 95 en adelante. probado hasta win 7. Mediante Wine pude ejecutarlo desde Linix Debian.

1.0

Actualizado el 20 de Noviembre del 2014 (Creado el 19 de Noviembre del 2014)gráfica de visualizaciones de la versión: 1.0
1.352 visualizaciones desde el 19 de Noviembre del 2014. Una media de 14 por semana
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

http://lwp-l.com/s2865