Newsgroup: it.comp.lang.visual-basic
Titolo: problema oggetto printer

ragazzi ho un problemaccio con la gestione di una stampa su stampante ad
aghi a modulo continuo.
il foglio è un 12" e devo stampare su 1/12"
i calcoli fatti sono sulla seguente sub
Public Sub SettaPRN()
    With Printer
        .ColorMode = 1      'monocolore
        .Duplex = 1            'facciata singola
        .Orientation = 1    'verticale
        .PrintQuality = -3  'media
        .PaperBin = 8       'modulo continuo
        .ScaleMode = 5      'impostazioni personalizzate
        .Height = 144 / 12  'altezza foglio
        .Width = 106 / 12   'larghezza foglio
    End With
End Sub
Ho un form pieno con textbox dove voglio che siano stampati sul modulo di
fattura il loro contenuto ma al richiamo di .Print genera errore di metodo
non supportato. come faccio a risolvere il problema??? quale altra
alternativa ho? Posso gestire la stampa su crystal report o è meglio
l'oggetto Printer? aiuto, vi prego.
Ecco il codice incriminato. ACCETTO CORREZIONI. GRAZIE
Private Sub StampaTESTATA()
    With Printer
        .CurrentX = 55 / 12
        .CurrentY = 21 / 12
        '.Print txtCliente.Text
        .CurrentX = 55 / 12
        .CurrentY = 22 / 12
        '.Print txtIndir.Text
        .CurrentX = 55 / 12
        .CurrentY = 24 / 12
        '.Print txtCAP.Text
        .CurrentX = 63 / 12
        .CurrentY = 24 / 12
        '.Print txtCittà.Text
        .CurrentX = 85 / 12
        .CurrentY = 24 / 12
        '.Print txtPR.Text
        .CurrentX = 39 / 12
        .CurrentY = 5 / 12
        '.Print txtID.Text
        .CurrentX = 39 / 12
        .CurrentY = 17 / 12
        '.Print sData
        .CurrentX = 47 / 12
        .CurrentY = 13 / 12
        '.Print txtIdentif.Text
        .CurrentX = 51 / 12
        .CurrentY = 3 / 12
        '.Print txtModPag.Text
        .CurrentX = 51 / 12
        .CurrentY = 54 / 12
        '.Print  txtBanca.Text
        .EndDoc
    End With
End Sub
Private Sub cmdStampa_Click()
    cmdStampa.Enabled = False
    SettaPRN
    With Printer
        .NewPage
        StampaTESTATA
        .EndDoc
    End With
End Sub

 Ecco il codice incriminato. ACCETTO CORREZIONI. GRAZIE
Non si tratta di correggere, ma la parte di codice attiva (non commentata),
se Printer è definito (ovvero se esiste una stampante predefinita) e salvo
problemi di drver e/o dichiarazioni dello stesso incompatibili con la
stampante, anzi, con la Printer, non può dare alcun tipo d'errore. Puoi
spiegarti meglio? In ogni caso, cita _esattamente_ il codice usato e la riga
che genera l'errore...

 che genera l'errore...
tutto ciň ke č commentato, ovvero .Print genera l'errore:
Impossibile trovare il metodo o il membro dei dati (errore 461)

 Impossibile trovare il metodo o il membro dei dati (errore 461)
Scusa, ma:
-La Printer è definita? C'è quindi una stampante installata e ve n'è una
predefinita?
-Se esegui Printer.Print "Pippo" _senza alcun altro codice_ ti genera
errore? (Se sì, credimi, c'è qualcosa che non va nell'ambiente)

Sto letteralmente impazzendo per il settaggio di questo maledetto modulo
continuo. Esso č un 12" e la stampante č una OKI 3321Elite ML e devo
lavorare in 1/12".
come faccio a settare la dimensione del foglio e dare le coordinate di
stampa? inoltre,che conversione devo fare? aiutatemi,vi prego!!!