🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: free.it.visual-basic
Article #1269

Re: Come faccio ad impostare la stampante predefinita?

#1269
From: Tixio
Date: Wed, 08 Sep 2004 19:52
48 lines
2611 bytes
Beh, a dire il vero non proprio...
Sto realizzando un programma in Vb6 che in primo luogo deve stampare su una
stampante e poi, senza l'intervento dell'operatore, deve stampare su
un'altra stampante di Windows. Il codice che ho riportato mi sembra corretto
ma, come detto, non produce n� un messaggio di erroe, n� alcun effetto, nel
senso che la stampante predefinita di Windows non viene modificata.
Sinceramente non so proprio come fare...
Ciao!


"ago" <ago@tin.it> ha scritto nel messaggio
news:XC4%c.265648$5D1.11947672@news4.tin.it...
> semplicemente utilizzando il commondialog setti il tipo di formato, la
> stampante, il font etc
> penso che sia questo ci� che stai cercando
> ciao
>
>
> "Tixio" <nom@il.thanks> ha scritto nel messaggio
> news:YRJ_c.78408$1V3.1916344@twister2.libero.it...
> > Salve a tutti!
> > Ho bisogno di aiuto: avrei bisogno di impostare via software la
stampante
> > predefinita e impostare il formato di carta "A3"...possiedo Visual Basic
> 6.0
> > su Windows 98.
> > Ho provato ad utilizzare il seguente codice ma non succede niente...e
non
> > ricevo alcun messaggio di errore.
> >
> > Dim P As Printer
> > For Each P In Printers
> >     If P.Port = "LPT1:" And P.DeviceName = "HP Laserjet" Then
> >         Set Printer = P
> >         Printer.PaperSize = vbPRPSA3   'Imposta il formato A3
> >         Exit For
> >     End If
> > Next P
> >
> > Qualcuno pu� "illuminarmi"?
> > Grazie 1000!
> >     Tiziano
> >
> >
> >
> >
>
>
Technical Details
Message-ID: <jqJ%c.1373$6b4.35300@twister1.libero.it>
Path: arc1-ca.pugleaf.net!g2news1.google.com!news1.google.com!news.glorb.com!transit.nntp.hccnet.nl!border2.nntp.ams.giganews.com!border1.nntp.ams.giganews.com!nntp.giganews.com!news2.euro.net!news.mailgate.org!nntp.infostrada.it!twister1.libero.it.POSTED!not-for-mail
References: <YRJ_c.78408$1V3.1916344@twister2.libero.it> <XC4%c.265648$5D1.11947672@news4.tin.it>

Show Full Headers
Complete Article Headers
X-Google-Thread: f94ee,fe1237ce48693b48
X-Google-Attributes: gidf94ee,public
X-Google-Language: ITALIAN,ASCII
Path: arc1-ca.pugleaf.net!g2news1.google.com!news1.google.com!news.glorb.com!transit.nntp.hccnet.nl!border2.nntp.ams.giganews.com!border1.nntp.ams.giganews.com!nntp.giganews.com!news2.euro.net!news.mailgate.org!nntp.infostrada.it!twister1.libero.it.POSTED!not-for-mail
From: "Tixio" <nom@il.thanks>
Newsgroups: free.it.visual-basic
References: <YRJ_c.78408$1V3.1916344@twister2.libero.it> <XC4%c.265648$5D1.11947672@news4.tin.it>
Subject: Re: Come faccio ad impostare la stampante predefinita?
Lines: 50
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 6.00.2600.0000
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2600.0000
Message-ID: <jqJ%c.1373$6b4.35300@twister1.libero.it>
Date: Wed, 08 Sep 2004 19:52:47 GMT
NNTP-Posting-Host: 151.27.19.172
X-Complaints-To: abuse@libero.it
X-Trace: twister1.libero.it 1094673167 151.27.19.172 (Wed, 08 Sep 2004 21:52:47 MET DST)
NNTP-Posting-Date: Wed, 08 Sep 2004 21:52:47 MET DST
Organization: [Infostrada]