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?
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?
...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...
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
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...