PRINTER E TIPO DE PAPEL

EPISCOPAL 17/12/2009 19:57:29
#329985


pessoal qdo eu utilizo word ou wordpad .... eu digito o texto normalmente .......... depois eu configuro o papel para A4, A5 etc .... depois eu imprimo para o DoroPDF impressora virtual ....... depois e gerado um arquivo PDF com o formato que escolhi .........

no meu programa eu utilizo o seguinte codigo, mas sempre sai em formato A4 no DoroPDF

Printer.Print [Ô][Ô]
Printer.ScaleMode = vbTwips
Printer.ScaleWidth = Largura(frm) [ô] aqui varia de acordo a largura do papel = 11970 twips
Printer.ScaleHeight = Altura(frm) [ô] mesma coisaaaaa
Printer.Orientation = 1 [ô] retrato
Printer.PaperSize = vbPRPSA4 >> vbPRPSA5 >> vbPRPSLetter etc .... aqui defino o tipo de papel so q nao funciona


sempre sai erradoooo .......... alguém pra ajudar ....

nao sei colocar codigo em anexooo
LLAIA 19/12/2009 11:12:44
#330070
verifique na pasta de impressoras do windows, se o doroPDF tm algum tipo de papel pré-detrminado
MARCELO.TREZE 19/12/2009 19:46:31
#330085
eu havia percebido alguns problemas no printer um dele é que a ordem dos fatores parece alterar o produto então tente, veja bem pode não ser isto, mas tive um problema parecido,e resolvi desta forma:

aletere a posição das linhas

exemplo

Printer.Print [Ô][Ô]
Printer.ScaleMode = vbTwips
Printer.Orientation = 1 [ô] retrato
Printer.PaperSize = vbPRPSA4 >> vbPRPSA5 >> vbPRPSLetter etc .... aqui defino o tipo de papel so q nao funciona]
Printer.ScaleWidth = Largura(frm) [ô] aqui varia de acordo a largura do papel = 11970 twips
Printer.ScaleHeight = Altura(frm) [ô] mesma coisaaaaa

tente e boa sorte
EPISCOPAL 20/12/2009 01:39:16
#330096
Citação:

Leandro disse: verifique na pasta de impressoras do windows, se o doroPDF tm algum tipo de papel pré-detrminado



como falei .......... no word dá certo, e no wordpad tambem, corel etc .............. so no meu programa q nao dá certo ...........

qualquer formato q faço, A4, A5 Letter .... A3 .......... qdo mando pro DoroPDF ou Microsoft Office Document Image Writer ....



obridagoooooo .........
EDERMIR 20/12/2009 23:30:33
#330126
Primeiramente a ordem INTERFERE no resultado. Corretíssima a observação do MARCELO_TREZE.

Faço da seguinte forma:
Tamanho da página: 11500 x 16000 (Neste caso é RETRATO) 16000 x 11500 (PAISAGEM)

        Dim objprint As Object
        Set objprint = Printer
        objprint.Orientation = 2 [ô]PAISAGEM
        objprint.PaperSize = 9 [ô]A4
EPISCOPAL 21/12/2009 00:08:22
#330127
Como disse, criei uns arquivos no word e imprimi no DoroPDF criando, respectivamente, no formatos A3, A4 e A5.

Infelizmente, no meu programa, só imprime formato A4, mesmo usando o DoroPDF ou Microsoft Office Document Image Writer.

Tentei usar este codigo:
Dim objprint As Object
Set objprint = Printer
objprint.Orientation = 2 [ô]PAISAGEM
objprint.PaperSize = 9 [ô]A4

mas se usar outro tipo de formato de papel como A5, Letter, etc da erro de execução.

Obridado ....
EDERMIR 21/12/2009 06:38:07
#330130
Você pode mostrar o erro?
EPISCOPAL 21/12/2009 12:07:14
#330182
[txt-size=5]CÓDIGO COM ERRO:[/txt-size]

Dim objprint As Object
Set objprint = Printer
objprint.PaperSize = vbPRPSA5 [ô]A4 aqui so aceita formato A4
objprint.Orientation = 1 [ô]PAISAGEM
objprint.FontSize = RichTextBox1.Font.Size

CommonDialog1.Flags = cdlPDReturnDC + cdlPDNoPageNums
If RichTextBox1.SelLength = 0 Then
CommonDialog1.Flags = CommonDialog1.Flags + cdlPDAllPages
Else
CommonDialog1.Flags = CommonDialog1.Flags + cdlPDSelection
End If
CommonDialog1.ShowPrinter

Printer.Print [Ô][Ô]
RichTextBox1.SelPrint CommonDialog1.hDC


[txt-size=5]CODIGO CORRETO[/txt-size]

Dim objprint As Object

Set objprint = Printer
objprint.PaperSize = vbPRPSA5 [ô]A4 aqui so aceita formato A4
objprint.Orientation = 1 [ô]PAISAGEM
objprint.FontSize = RichTextBox1.Font.SizE

CommonDialog1.Flags = cdlPDReturnDC + cdlPDNoPageNums

If RichTextBox1.SelLength = 0 Then
CommonDialog1.Flags = CommonDialog1.Flags + cdlPDAllPages
Else
CommonDialog1.Flags = CommonDialog1.Flags + cdlPDSelection
End If

CommonDialog1.ShowPrinter

Printer.Print [Ô][Ô]
RichTextBox1.SelPrint Printer.hDC [txt-color=#e80000]<<<<<<<<<<<<<<<< LINHA CORRETA.[/txt-color]




NÃO ACEITOU O VALOR RETORNADO POR COMMONDIALOG
PORQUE???????
EPISCOPAL 21/12/2009 12:26:08
#330188

[txt-size=2][txt-color=#0000f0]GRAÇAS A DEUS DEU CERTO ............ SIGO A FRENTE COM MEU PROJETO[/txt-color][/txt-size]


Printer.ScaleMode = vbTwips
Printer.PaperSize = vbPRPSA5
Printer.Orientation = 1
Printer.ScaleWidth = Largura(frm)
Printer.ScaleHeight = Altura(frm)
Printer.Print [Ô][Ô]


[txt-color=#e80000]MarceloTreze estava corretissimo[/txt-color]

percebi devido o codigo de erro: 380
Antes de executarmos [txt-color=#0000f0]Printer.Print [Ô][Ô][/txt-color] temos que configurar o tamanho de papel, orientação, etc
.......

valeu pela ajudaaaaaa
EPISCOPAL 21/12/2009 12:28:16
#330189
Resolvi por pontuar a ninguem ........... Todos me ajudaram: MarceloTreze, Edermir ...... valeuuuuu
Tópico encerrado , respostas não são mais permitidas
Voltar