Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Código Fuente » Basic » Código de Basic - Imprimir en una posición definida en la pagina

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

Volver
Agregar Código Fuente
<<>>
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 (3 códigos) (Publicado el 19 de Noviembre del 2014)
2.763 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
2.764 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...
CerrarCerrar
CerrarCerrar
Cerrar

Tienes que ser un usuario registrado para poder insertar imágenes, archivos y/o videos.

Puedes registrarte o validarte desde aquí.

Codigo
Negrita
Subrayado
Tachado
Cursiva
Insertar enlace
Imagen externa
Emoticon
Tabular
Centrar
Titulo
Linea
Disminuir
Aumentar
Vista preliminar
sonreir
dientes
lengua
guiño
enfadado
confundido
llorar
avergonzado
sorprendido
triste
sol
estrella
jarra
camara
taza de cafe
email
beso
bombilla
amor
mal
bien
Es necesario revisar y aceptar las políticas de privacidad
Acepto las políticas de privacidad

http://lwp-l.com/s2865