Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Troca Drive Impressora
Message
General information
Forum:
Visual FoxPro
Category:
Troubleshooting
Miscellaneous
Thread ID:
00857251
Message ID:
00857268
Views:
28
>Claudio valeu!!!
>Seguinte:
>Teria como você meio que comentar as linhas abaixo para mim me situar no que está ocorrendo... Por exemplo se a impressora do usuario não for a N17 eu não quero que ele imprima no drive da PostScript... E sim no que está default... Pois temos mais de 10 impressoras diferentes aqui :/
>
>Obrigado!
>
nwtot_imp = APRINTERS(awimpress) && retornará um array com todas a impressoras
nwimp     = 0                    && acumulador que terá valor maior que zero caso a nossa impressora esteja definida no Windows
for ipp = 1 to nwtot_imp         && loop de 1 ao total de impressoras existentes
    if  "Xerox N17 PostScript"$upper(awimpress[ipp,1])  && se o nome existir no array
        nwimp = ipp              && nosso identificador rotorna qual é a posições dela no array de impressoras
        exit
    endif
endfor
if  nwimp > 0
    SET PRINTER TO NAME awimpress[ipp,1]  && as próximas impressões serão efetuadas nesta impressora até um próximo SET PRINTER TO
endif
"Now to him who is able to do immeasurably more than all we ask or imagine, according to his power that is at work within us, Ephesians 3:20
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform