ORIENTACAO DA PAGINA PARA IMPRESSAO
Bom dia.
Eu criei um Printform para vizualizar a impressão e depois imprimir. Só que ao ao invés de mostrar o formulário completo que tem o tamanho 1044x 614, ta saindo cortado, na orientação retrato eu imagino que se estivesse na orientação paisagem sairia correto. Alguem sabe como posso solucionar esse problema? Abaixo o código que eu estou utilizando. E em anexo como saiu a impressão. Desde já agradeço.
Private Sub imprimir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles imprimir.Click
On Error GoTo erroimpressora
impressora.Print()
Exit Sub
erroimpressora:
MsgBox([Ô]Erro ao tentar imprimir[Ô])
End Sub
Eu criei um Printform para vizualizar a impressão e depois imprimir. Só que ao ao invés de mostrar o formulário completo que tem o tamanho 1044x 614, ta saindo cortado, na orientação retrato eu imagino que se estivesse na orientação paisagem sairia correto. Alguem sabe como posso solucionar esse problema? Abaixo o código que eu estou utilizando. E em anexo como saiu a impressão. Desde já agradeço.
Private Sub imprimir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles imprimir.Click
On Error GoTo erroimpressora
impressora.Print()
Exit Sub
erroimpressora:
MsgBox([Ô]Erro ao tentar imprimir[Ô])
End Sub
Que objeto é esta [Ô]impressora[Ô]?
vê se ela temalgo assim:
vê se ela temalgo assim:
Impressora.DefaultPageSettings.Landscape = True
Deu certo! o objeto que eu estou usando é o Printform. Coloquei essas margens pq tava saindo cortado ainda. Mas com as margens ficou perfeito. Obrigado
Private Sub imprimir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles imprimir.Click
On Error GoTo erroimpressora
impressora.PrinterSettings.DefaultPageSettings.Landscape = True
impressora.PrinterSettings.DefaultPageSettings.Margins.Left = 80
impressora.PrinterSettings.DefaultPageSettings.Margins.Right = 80
impressora.PrinterSettings.DefaultPageSettings.Margins.Top = 80
impressora.Print()
Exit Sub
erroimpressora:
MsgBox([Ô]Erro ao tentar imprimir[Ô])
End Sub
Private Sub imprimir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles imprimir.Click
On Error GoTo erroimpressora
impressora.PrinterSettings.DefaultPageSettings.Landscape = True
impressora.PrinterSettings.DefaultPageSettings.Margins.Left = 80
impressora.PrinterSettings.DefaultPageSettings.Margins.Right = 80
impressora.PrinterSettings.DefaultPageSettings.Margins.Top = 80
impressora.Print()
Exit Sub
erroimpressora:
MsgBox([Ô]Erro ao tentar imprimir[Ô])
End Sub
Tópico encerrado , respostas não são mais permitidas