Jump to content
Fórum Script Brasil
  • 0

escolher impressora


Question

Olá todos,

através do cutepdf eu estou criando relatórios que serão abertos para visualização no pdf.

O problema é que eu tenho que selecionar a impressora do cutepdf para isso e ela não ficará como impressora padrão no windows.

Usando o printer há como eu selecionar a impressora no qual quero imprimir?

Abc e obg a todos

Link to post
Share on other sites

5 answers to this question

Recommended Posts

  • 0

acho q tipo isso.

Dim p As Printer

Set p = Printers(x)[/code]

onde x é indice da sua impressora, acho q de acordo com a ordem em q foram instaladas no so. ai você imprime a partir do objeto p.

se você não sabe o indice da sua impressora do cutepdf, faca um for de 0 ate Printers.Count e pegue o DeviceName de todos os indices e veja qual o indice q tem o nome da impressora q você quer.

Link to post
Share on other sites
  • 0

fala kuroi,

agradeço novamente a atenção e a ajuda.

Através dessa rotina sugerida por você descobri o indice da impressora : 6

Dim i As Integer

For i = 0 To Printers.Count - 1

If Printers(i).DeviceName = "CutePDF Writer" Then

impressora = Printers.Count

End If

next

Agora usando o Set p = Printers(6) dá o seguinte erro:

run-time error 9

subscript out of range

Abc

Link to post
Share on other sites
  • 0

certo. agora ele diz que a impressora é a 4 só que continua imprimindo pela padrão.

acredito que isso acorra porque eu não estou imprimindo pelo P como você sugeriu. Estou usando printer.print ""

pediria agora para você me ensinar a imprimir pelo p

grato novamente

abc

resolvido coloquei:

Set Printer = Printers(impressora)

abc e obg

Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Cloud Computing


  • Forum Statistics

    • Total Topics
      149287
    • Total Posts
      645679
×
×
  • Create New...