+ Rispondi al messaggio
Visualizzazione dei risultati da 1 a 9 su 9

[VB 6]Scegliere stampante

  1. #1
    L'avatar di angelmag
    angelmag non  in linea Novello
    Creo un documento con l'oggetto printer


    <center>
    Printer.Print "Ciao"
    Printer.Print "A"
    Printer.Print "Tutti"
    Printer.EndDoc
    </center>

    poi do una schermata con le stampanti installate

    <center>
    Private Sub CercaStampanti()
    Dim prn As Printer
    For Each prn In Printers
    cmbStampante.AddItem prn.DeviceName
    Next
    cmbStampante.ListIndex = 0
    End Sub
    </center>

    come faccio a far stampare il documento con la stampante scelta?

    Grazie

  2. #2
    L'avatar di albertonissa
    albertonissa non  in linea Topo di biblioteca
    Dim stampanteinuso As Printer

    Private Sub Combo1_Change()
    stampanteinuso.DeviceName = Combo1.Text
    End Sub

    Private Sub Command1_Click()
    Set Printer = stampanteinuso
    Printer.Print "ABC"
    End Sub

    Private Sub Form_Load()
    Dim Stampante As Printer
    For Each Stampante In Printers
    Combo1.AddItem Stampante.DeviceName
    Next
    End Sub

    [img]smileys/smiley1.gif[/img] [img]smileys/smiley1.gif[/img]

  3. #3
    bill non  in linea Novello
    Mi da errore in questa riga

    stampanteinuso.DeviceName = Combo1.Text

    come mai?

    grazie

  4. #4
    L'avatar di albertonissa
    albertonissa non  in linea Topo di biblioteca
    che tipo di errore? [img]smileys/smiley1.gif[/img]

  5. #5
    bill non  in linea Novello
    Quote Originariamente inviato da albertonissa
    che tipo di errore? [img]smileys/smiley1.gif[/img]

    Errore di compilazione:

    numero errato di argomenti o assegnazione di propriet non valida.

  6. #6
    L'avatar di albertonissa
    albertonissa non  in linea Topo di biblioteca
    se sei sicuro di aver dimensionato stampante in uso come "Printer" (Dim stampanteinuso As Printer) ti consiglierei di vedere meglio a cosa corrisponde Combo1.Text

    Io ho fatto delle prove sbagliando volutamente qualcosa, ma gli errori che mi restituisce in fase di debug sono altri [img]smileys/smiley19.gif[/img]

    prova e fammi sapere [img]smileys/smiley1.gif[/img]

  7. #7
    bill non  in linea Novello
    io ho copiato il tuo codice dalla prima all'ultima riga.


    ma con quel codice non mi esegue l'evento CHANGE(di combo1) e mi da errore di run time 91: variabile oggetto o variabile del blocco Whit non impostata. (perch la variabile Stampanteinuso era vouta)

    cos ho cambiato l'evento Change con l'evento Click(del combo1) e mi da l'altro errore.


    ciao e grazie

  8. #8
    L'avatar di albertonissa
    albertonissa non  in linea Topo di biblioteca
    in attesa che bdf_ ci salvi dall'abbisso in cui siamo capitati (non riesco a capire da dove venga l'errore, dato che io ho stampato "ABC" [img]smileys/smiley19.gif[/img] ) ti posso solo consigliare le API

    Declare Function PrinterProperties Lib "winspool.drv" Alias "PrinterProperties" (ByVal hwnd As Long, ByVal hPrinter As Long) As Long

    Declare Function WritePrinter Lib "winspool.drv" Alias "WritePrinter" (ByVal hPrinter As Long, pBuf As Any, ByVal cdBuf As Long, pcWritten As Long) As Long

    [img]smileys/smiley11.gif[/img]

  9. #9
    bill non  in linea Novello
    l'errore sulla scelta della stampante e sulla propriet DeviceName

    perch se stampo sulla stampante predefinita mi stampa tutto.

    ciao

+ Rispondi al messaggio

Potrebbero interessarti anche ...

  1. Poter scegliere stampante specifica o finestra di stampa.
    Da MarcoTomTom nel forum Microsoft Access
    Risposte: 6
    Ultimo Post: 27-07-2017, 23:26
  2. Risposte: 9
    Ultimo Post: 05-05-2016, 08:33
  3. Come scegliere un host
    Da Sicily_Warrior nel forum Design, Internet Marketing e SEO
    Risposte: 2
    Ultimo Post: 26-04-2015, 18:35
  4. Scegliere una variabile
    Da lago1954 nel forum Microsoft Excel
    Risposte: 7
    Ultimo Post: 26-04-2012, 19:36
  5. Come scegliere un portatile?
    Da Gandalfrank nel forum Hardware, elettronica e retro-computing
    Risposte: 15
    Ultimo Post: 30-01-2010, 11:10