VERSION 5.00
Begin VB.Form Form6
BackColor = &H00C0CEC0&
Caption = "Form6"
ClientHeight = 3015
ClientLeft = 60
ClientTop = 525
ClientWidth = 4680
LinkTopic = "Form6"
MDIChild = -1 'True
ScaleHeight = 3015
ScaleWidth = 4680
Begin VB.TextBox Text1
Height = 375
Left = 480
TabIndex = 1
Text = "Text1"
Top = 480
Width = 2055
End
Begin VB.CommandButton Command1
Caption = "Command1"
Height = 615
Left = 1440
TabIndex = 0
Top = 1800
Width = 1695
End
End
Attribute VB_Name = "Form6"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
Printer.PaperSize = vbPRPSA4
Printer.ScaleMode = 6
Printer.CurrentX = 20
Printer.CurrentY = 60
Printer.Print Text1.Text
End Sub
e-REdING. Biblioteca de la Escuela Superior de Ingenieros de Sevilla.
