¡Código Vb6.0 para puntuaciones altas!
Private Sub Command2_Click()
' vbPRPSLetter 1 Carta, 8 1/2 x 11 pulgadas.
' vbPRPSLetterSmall 2 Letras Pequeñas, 8 1/2 x 11 pulg.
' vbPRPSTabloid 3 Tabloide, 11 x 17 pulg.
' vbPRPSLedger 4 Libro mayor, 17 x 11 pulg.
' vbPRPSLegal 5 Legal, 8 1/2 x 14 pulg.
' vbPRPSStatement 6 Declaración, 5 1/2 x 8 1/2 pulg.
' vbPRPSExecutive 7 Ejecutivo, 7 1/2 x 10 1/ 2 pulgadas
' vbPRPSA3 8 A3, 297 x 420 mm
' vbPRPSA4 9 A4, 210 x 297 mm
' vbPRPSA4Pequeño 10 A4 pequeño, 210 x 297 mm
' vbPRPSA5 11 A5, 148 x 210 mm
' vbPRPSB4 12 B4, 250 x 354 mm
' vbPRPSB5 13 B5, 182 x 257 mm
' vbPRPSFolio 14 Folio, 8 1/2 x 13 pulgadas.
' vbPRPSQuarto 15 Cuarto, 215 x 275 mm
' vbPRPS10x14 16 10 x 14 pulgadas .
' vbPRPS11x17 17 11 x 17 pulg.
' vbPRPSNote 18 Nota, 8 1/2 x 11 pulg.
' vbPRPSEnv9 19 Sobre #9, 3 7/8 x 8 7/8 pulg.
' vbPRPSEnv10 20 Sobre n.° 10, 4 1/8 x 9 1/2 pulg.
' vbPRPSEnv11 21 Sobre n.° 11, 4 1/2 x 10 3/8 pulg.
' vbPRPSEnv12 22 Sobre n.° 12, 4 1/2 x 11 pulg.
' vbPRPSEnv14 23 Sobre n.° 14, 5 x 11 1/2 pulgada
'v
bPRPSCHoja 24 hoja tamaño C
' vbPRPSDHoja 25 hoja tamaño D
' vbPRPSEHoja 26 hoja tamaño E
' vbPRPSEnvDL 27 Sobre DL, 110 x 220 mm
' vbPRPSEnvC3 29 Sobre C3, 324 x 458 mm
' vbPRPSEnvC4 30 Sobre C4, 229 x 324 mm
' vbPRPSEnvC5 28 Sobre C5, 162 x 229 mm
' vbPRPSEnvC6 31 Sobre C6, 114 x 162 mm
' vbPRPSEnvC65 32 Sobre C65, 114 x 229 mm
' vbPRPSEnvB4 33 Sobre B4, 250 x 353 mm
' vbPRPSEnvB5 34 Sobre B5, 176 x 250 mm
' vbPRPSEnvB6 35 Sobre B6, 176 x 125 mm
' vbPRPSEnvItaly 36 Sobre, 110 x 230 mm
' vbPRPSEnvMonarch 37 Sobre Monarch, 3 7/8 x 7 1/2 pulg.
' vbPRPSEnvPersonal 38 Sobre, 3 5/8 x 6 1/2 pulg.
' vbPRPSFanfoldUS 39 Plegado en acordeón estándar de EE. UU., 14 7/8 x 11 pulg.
' vbPRPSFanfoldStdGerman 40 Plegado en acordeón estándar alemán, 8 1/2 x 12 pulg.
' vbPRPSFanfoldLglAlemán 41 Carpeta legal alemana, 8 1/2 x 13 pulgadas.
' vbPRPSUser 256 Definido por el usuario
'Si Printer.PaperSize está configurado en vbPRPSUser, significa usar "definido por el usuario". "Paper", en este momento el tamaño del papel lo determinan las propiedades de Alto y Ancho de la impresora. Si configura las propiedades Alto y Ancho de la impresora, PaperSize se establece automáticamente en vbPRPSUser.
Atenuar s1 como cadena
Atenuar s2 como cadena
Atenuar i como entero
Con impresora
. ScaleMode = 6 'mm
.PaperSize = vbPRPSUser
.Width = 100
.Height = 60
.ScaleMode = 1 ' Consejo
s1 = "HOLA AL MUNDO"
.FontBold = True
.FontSize = 18
.CurrentX = (.Width - .TextWidth("s1")) / 2
.CurrentY = 2 * 567
Impresora.Imprimir s1
.FontBold = False
.FontSize = 10
.CurrentY = .CurrentY + 1 * 567
Para i = 0 a 9
.CurrentX = 2 * 567
s1 = "Campo" & i & "=Resultado" & i
Impresora.Imprimir s1
Siguiente i
.EndDoc
Terminar con
Fin del subtítulo