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 #12, 4 1/
2 x 11 pulg.
' vbPRPSEnv14 23 Sobre #14, 5 x 11 1/2 pulg.
' vbPRPSCSheet 24 Hoja tamaño C
' vbPRPSDSheet 25 Hoja tamaño D
' vbPRPSEShoja 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.
' vbPRPSFanfoldLglPlegamiento en acordeón legal alemán 41 alemán, 8 1/2 x 13 pulg. p>
' vbPRPSUser 256 Definido por el usuario
'Si configura Printer.PaperSize en v
bPRPSUser, significa utilizar papel "definido por el usuario", y el tamaño del papel está determinado por las propiedades 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 Sub