escolher impressora

[Marcelo VB]

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

[kuroi]

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.

[Marcelo VB]

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

[kuroi]

na verdade você pegou o indice errado.

em vez de

impressora = Printers.Count

tenta assim ó:

impressora = i

[Marcelo VB]

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

[Marcelo VB]

Fala Kuroi,

saberia me dizer se há mais interação do vb6 com o cutepdf, tipo, sugerir nome do arq. quando abre a janela para salvá-lo e posteriormente já abrir o pdf automaticamente?

Abc e obg