VISUALIZACAO C/ O OBJ PRINTER?
Alguém pode me ajudar a entender melhor como visualizar a impressão do objeto printer?
Eu peguei um exemplo de como imprimir pelo printer, mas não consigo fazer com que visualize em uma picturebox!?!
E assim poder exportar em .doc, .html ou .txt.
Obs.: Obs.: Este só irá imprimir textos e linhas.
Eu peguei um exemplo de como imprimir pelo printer, mas não consigo fazer com que visualize em uma picturebox!?!
E assim poder exportar em .doc, .html ou .txt.
Obs.: Obs.: Este só irá imprimir textos e linhas.
Tamanini
O Objeto Printer e a Picture são similares, você pode informar aos 2 praticamente os mesmo comandos, veja bem, isto não tem nada a ver com exportação de dados!
Você está equivocado, Objeto Printer e Picture, neste formato são dispositivos de SaÃda e não armazenam dados.
Para exportar utilize os RecordSet.
* Eu vou procurar aqui um exemplo que enviei para um VBManÃaco onde uma Picture deslizava dentro de outra Picture como o Print Preview do Word, mas bem rudimentar.
O Objeto Printer e a Picture são similares, você pode informar aos 2 praticamente os mesmo comandos, veja bem, isto não tem nada a ver com exportação de dados!
Você está equivocado, Objeto Printer e Picture, neste formato são dispositivos de SaÃda e não armazenam dados.
Para exportar utilize os RecordSet.
* Eu vou procurar aqui um exemplo que enviei para um VBManÃaco onde uma Picture deslizava dentro de outra Picture como o Print Preview do Word, mas bem rudimentar.
Tamanini
Depois de imprimir em uma Picture interna, você poderá fazê-la "rolar" como se fosse um Preview do Word:
Abra um Form e insira os Objetos:
Picture1
Picture2 (Dentro da Picture1)
VScroll1 (Dentro da Picture1)
Copie o Código Abaixo
Private Sub Form_Load()
Dim x As Integer
Picture2.Height = 10000
VScroll1.LargeChange = 1000
VScroll1.Max = Picture2.Height
For x = 1 To 49
Picture2.Print "Linha "; x
Next
End Sub
Private Sub Picture1_Resize()
VScroll1.Height = Picture1.Height
End Sub
Private Sub VScroll1_Change()
Picture2.Top = -VScroll1.Value
End Sub
Você vai ver a Picture2 deslizar dentro da Picture1. Deve ser isto que você está necessitando.
Se não for, poste aqui novamente
[s68]
* Exemplo de Rolagem para o Preview.
Depois de imprimir em uma Picture interna, você poderá fazê-la "rolar" como se fosse um Preview do Word:
Abra um Form e insira os Objetos:
Picture1
Picture2 (Dentro da Picture1)
VScroll1 (Dentro da Picture1)
Copie o Código Abaixo
Private Sub Form_Load()
Dim x As Integer
Picture2.Height = 10000
VScroll1.LargeChange = 1000
VScroll1.Max = Picture2.Height
For x = 1 To 49
Picture2.Print "Linha "; x
Next
End Sub
Private Sub Picture1_Resize()
VScroll1.Height = Picture1.Height
End Sub
Private Sub VScroll1_Change()
Picture2.Top = -VScroll1.Value
End Sub
Você vai ver a Picture2 deslizar dentro da Picture1. Deve ser isto que você está necessitando.
Se não for, poste aqui novamente
[s68]
* Exemplo de Rolagem para o Preview.
Tamanini
Pelo jeito você não utilizou o Código que enviei acima. [S55]
Se você notar bem, no trecho:
For x = 1 To 49
Picture2.Print "Linha "; x
Next
A Picute2 tem o Método Print, só que o mesmo não aparece automaticament, temos que digitar PRINT e só.
[S50]
Teste o código como indiquei e verá que a Picutre terá um texto e também deslizará, quanto a complexidade do exemplo é simples mesmo, mas se o VB6Master tiver um exemplo mais aprimorado melhor ainda.
Bom Final de semana!
[s68]
Pelo jeito você não utilizou o Código que enviei acima. [S55]
Se você notar bem, no trecho:
For x = 1 To 49
Picture2.Print "Linha "; x
Next
A Picute2 tem o Método Print, só que o mesmo não aparece automaticament, temos que digitar PRINT e só.
[S50]
Teste o código como indiquei e verá que a Picutre terá um texto e também deslizará, quanto a complexidade do exemplo é simples mesmo, mas se o VB6Master tiver um exemplo mais aprimorado melhor ainda.
Bom Final de semana!
[s68]
VB6Master
Boa Tarde
Com cerveja, ops... Certeza!
Pode enviar sim, você não alterou e aperfeiçoou, então manda!
Eu montei aquele exemplo para aquela sua situação, não tem problema enviar.
Até Breve
[S46]
Boa Tarde
Com cerveja, ops... Certeza!
Pode enviar sim, você não alterou e aperfeiçoou, então manda!
Eu montei aquele exemplo para aquela sua situação, não tem problema enviar.
Até Breve
[S46]
Tópico encerrado , respostas não são mais permitidas