Codice Vb - come settare stampante def

[avantrax]

ciao

qualcuno mi da una dritta su come impostare momentaneamente una stampante al posto di quella di default (cioe non deve sostituirsi a quella di default o al limide la deve poi ripristinare)

in VB6 (sperando che funzioni anche in iFix 3.5 visto che la devo implementare in questo)

in parole povere sto tentando di stampare un print screen fatto con la funzione screencap di fix ma questa mi indirizza il file direttamente nella stampante di default che a me non va bene (e una stampante che serve solo per stampa dati mentre per i print devo indirizzare il file su una stampante ad alta risoluzione)

grazie

[marcoscarlassare]

Ciao,

devi scorrere tutte le stampanti installate, e settare l'oggetto printer con la stampante desiderata, facendo una ricerca per nome stampante (il nome lo configuri da ControlPanel):

For i = 0 To Printers.Count - 1

If UCase$(Printers(i).DeviceName) = "MYPRINTER" Then

Set Printer = Printers(i)

Ok = True

Exit For

End If

Next

If Ok = True Then

...

...

End If

Ciao

[Hellis]

Usando queste istruzioni, la stampante scelta non diventa la predefinita?

a me succedeva questo.

Pertanto ho scritto una routine dove

A) memorizzo la stampante definita dal sistema

stampo sulla stampante scelta, non necessariamente quella di sistema

C) riforzo l'oggetto printer sulla stampante di sistema