Visualizzazione dei risultati da 1 a 4 su 4
  1. #1
    Utente di HTML.it
    Registrato dal
    Oct 2001
    Messaggi
    48

    VB - oggetto commodialog per stampa

    vorrei sapere come funziona l'oggetto commondialog per la stampa in visual basic.
    Se scrivo commondialog.showprinter ho un errore di variabile non definita...cosa devo fare?includere qualche libreria?

  2. #2
    Utente di HTML.it L'avatar di vonkranz
    Registrato dal
    Sep 2001
    Messaggi
    1,387
    ...magari non e' questo pero'...

    commondialog1.showprinter (il nome di default contiene l'1)

    Hai sbagliato a scrivere il nome del controllo.

    Al limite, prova a cambiare il nome del controllo (prop. name) e mettere CMD e poi fare:

    CMD.ShowPrinter

    Ti assicuro che funziona, senza DLL aggiuntive
    Ciao.
    ...and I miss you...like the deserts miss the rain...

  3. #3
    Utente di HTML.it
    Registrato dal
    Oct 2001
    Messaggi
    48
    funziona!...che svampita che sono...
    ancora una cosa.
    posso dirgli di stampare caratteri a caso su un certo numero di pagine e di tenere un contatore dei caratteri stampati in tutto(aggiornato su ogni pagina) e del numero di pagine stampate?
    Fin'ora ho scritto:
    CommonDialog1.ShowPrinter
    BeginPage = CommonDialog1.FromPage
    EndPage = CommonDialog1.ToPage
    NumCopies = CommonDialog1.Copies
    Orientation = CommonDialog1.Orientation
    For i = 1 To NumCopies
    sstring = "prova stampante"
    Printer.Print sstring
    Printer.EndDoc
    Next

  4. #4
    Utente di HTML.it L'avatar di vonkranz
    Registrato dal
    Sep 2001
    Messaggi
    1,387
    Certo che lo puoi fare, ma lo devi fare via codice:
    nel tuo esempio, puoi settarti due variabili:
    una che tiene conto del numero di caratteri stampati sulla pagina ( len(sstring)) e un'altra che tiene conto del totale dei caratteri quindi
    codice:
    DIM dblCarTot   As double
    DIM dblCarPag   As double
    DIM dblToTPag   As double
    
    CommonDialog1.ShowPrinter 
    BeginPage = CommonDialog1.FromPage 
    EndPage = CommonDialog1.ToPage 
    NumCopies = CommonDialog1.Copies 
    Orientation = CommonDialog1.Orientation 
    For i = 1 To NumCopies 
    sstring = "prova stampante" 
    Printer.Print sstring 
    dblCarPag=dblCarPag+len(sstring)
    Printer.Print "caratteri sulla pagina :" & cstr(dblCarPag)
    dblCarTot=dblCarTot+dblCarPag
    dblToTPag=dblToTPag+1
    Printer.NewPage 'Ti spara fuori il foglio SENZA chiudere il documento
    dblCarPag=0
    Next
    Printer.print "Totale dei caratteri: " & cstr(dblCarTot)
    Printer.print "Totale delle pagine : " & cstr(dblToTPag)
    Printer.EndDoc
    ...and I miss you...like the deserts miss the rain...

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2024 vBulletin Solutions, Inc. All rights reserved.