IMPRIMIR CAMPO TEXTO CURRENTX, CURRENTY
galera, como faço para imprimir um campo texto (com mais de 1 linha) com margem esquerda?
tentei assim
printer.currenty = 200
printer.currentx = 200
printer.print text1.text
so que ele sai assim:
[Ô] Este texto foi impresso
usando a formatação acima[Ô]
eu preciso que ele saia assim:
[Ô] Este texto foi impresso
usando a formatação
acima[Ô]
nao tem alguma forma de definir o x,y na linha da impressao? tipo: printer.print text1, x, y ?????
tentei assim
printer.currenty = 200
printer.currentx = 200
printer.print text1.text
so que ele sai assim:
[Ô] Este texto foi impresso
usando a formatação acima[Ô]
eu preciso que ele saia assim:
[Ô] Este texto foi impresso
usando a formatação
acima[Ô]
nao tem alguma forma de definir o x,y na linha da impressao? tipo: printer.print text1, x, y ?????
Private Sub Form_Load()
Text1.Text = [Ô]Este texto foi impresso usando a formatação acima[Ô]
Printer.ScaleMode = 6
Printer.PaperSize = vbPRPSA4
Printer.CurrentX = 50
Printer.CurrentY = 50
Printer.Print Left(Text1.Text, 23)
Printer.CurrentX = 50
Printer.CurrentY = Printer.CurrentY + 2
Printer.Print Mid(Text1.Text, 25, 21)
Printer.CurrentX = 50
Printer.CurrentY = Printer.CurrentY + 2
Printer.Print Right(Text1.Text, 5)
Printer.EndDoc
End Sub
Text1.Text = [Ô]Este texto foi impresso usando a formatação acima[Ô]
Printer.ScaleMode = 6
Printer.PaperSize = vbPRPSA4
Printer.CurrentX = 50
Printer.CurrentY = 50
Printer.Print Left(Text1.Text, 23)
Printer.CurrentX = 50
Printer.CurrentY = Printer.CurrentY + 2
Printer.Print Mid(Text1.Text, 25, 21)
Printer.CurrentX = 50
Printer.CurrentY = Printer.CurrentY + 2
Printer.Print Right(Text1.Text, 5)
Printer.EndDoc
End Sub
ou vc poderia usar somente uma tabulação
Printer.Print Chr$(9) + Chr$(9) & [Ô]Linha 1[Ô]
Printer.Print Chr$(9) + Chr$(9) & [Ô]Linha 2[Ô]
Printer.Print Chr$(9) + Chr$(9) & [Ô]Linha 3[Ô]
Printer.Print Chr$(9) + Chr$(9) & [Ô]Linha 4[Ô]
Printer.EndDoc
Citação::
Private Sub Form_Load()
Text1.Text = [Ô]Este texto foi impresso usando a formatação acima[Ô]
Printer.ScaleMode = 6
Printer.PaperSize = vbPRPSA4
Printer.CurrentX = 50
Printer.CurrentY = 50
Printer.Print Left(Text1.Text, 23)
Printer.CurrentX = 50
Printer.CurrentY = Printer.CurrentY + 2
Printer.Print Mid(Text1.Text, 25, 21)
Printer.CurrentX = 50
Printer.CurrentY = Printer.CurrentY + 2
Printer.Print Right(Text1.Text, 5)
Printer.EndDoc
End Sub
o texto que usei foi so um exemplo, o usuario pode escrever um livro nele, pois coloquei a propriedade multiline=true
quando o usuario digita um texto usando o enter ou um texto grande ele imprime desta forma:
[Ô] bla bla bla bla bla bla bla
bla bla bla bla
bla bla bla[Ô]
preciso que saia assim:
[Ô] bla bla bla bla bla bla bla
bla bla bla bla
bla bla bla[Ô]
Tópico encerrado , respostas não são mais permitidas