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.EndDocCitaçã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
                    
                

