Newsgroup: it.comp.lang.visual-basic
Titolo: per marco corona, ocx etichette

intanto grazie !
un altra dimostrazione che san freeware e' sempre troppo misconosciuto !
hai fatto un controllo che e' un bijoux. con spudorati copia-incolla dal tuo
vbp, si stampa un indirizzario in meno di 5 secondi di programmazione. e
proprio in questi giorni dovevo tirare fuori un programma che stampasse
etichette...
Sub StampaEtichette()
    Dim dev As Object
    Set dev = ET.PrnDev
    Dim db As Database, rs As Recordset
    Dim cnt As Integer
    Set db = OpenDatabase("rubrrub.mdb")
    Set rs = db.OpenRecordset("RUBRICA")
' novita' di vb: nel db la tabella e' in maiuscolo:
' se lo scrivo minuscolo da' tipo non corrispondente...
' mi sembrava che prima se ne fregasse, boh!
    rs.Index = "nome_citta"
    With rs
        Do While Not .EOF
            If !via <> "" Then
                cnt = cnt + 1
                If cnt > 24 Then Exit Do
' giusto per non impallare la stampante, sono a casa :)
                ET.NuovaEtichetta
                ET.PrintText 10, 5, CStr(cnt)
                ET.PrintText 10, 10, !nome
                ET.PrintText 10, 15, !via
                ET.PrintText 10, 20, !cap & " - " & !citta
            End If
            .MoveNext
            DoEvents
        Loop
    End With
    rs.Close: db.Close
    Set rs = Nothing: Set db = Nothing
    ET.FineStampa
End Sub
ti chiederei solo alcuni chiarimenti. ho provato con f2 a guardare il
controllo, ma c'e' qc che non capisco bene. ti prego di scusarmi se sono
cose dalla risposta ovvia.
-- il font che viene usato e' configurabile ? nel caso, la posizione delle
righe devo gestirla a tentativi o posso usare textwidth o altro ?
-- l'ocx tiene conto delle pagine ? cioe', posso stampare in qualche modo da
pagina n1 a pagina n2 ?
-- qui sotto cosa sono il 4. e 5. parametro ?
    ET.PrintBarCode mcCentra, mcCentra, "Barcode 39", 3, 10
-- scompresso lo zip, ho spostato l'ocx in \winnt\system32 e l'ho
registrato. lanciato il tuo vbp -> "la versione 1.71 [mi sembra] non e'
registrata. il controllo verra' aggiornato alla 1.72". poi tutto ok. va bene
cosi' ?
-- come prndev posso usare qualsiasi device di output ?
scusa della rottura, vorrei capire bene il controllo.
grazie ancora e ciao,
a.

 grazie ancora e ciao,
nessuna rottura: oggi usi me, domani uso te! :-)
(niente doppi sensi)
Ciao, M.

 pagine. Per facilitarti la cosa posso inserire un evento NuovaPagina ti
va?
si potrebbe provare.
le uniche altre modifiche che mi sono venute in mente al primo incontro
sono:
- raddoppiamento del pulsante stampa sul frm anteprima, come in word. a
volte e' comodo averlo anche li'. ma e' quasi superflua.
- possibilita' di impostare dimensioni e posizione del frm antemprima.
ma intanto vorrei studiarmi meglio il controllo. quello che ti dicevo sulla
stampa da pagina a pagina si puo' prob fare con una query di selezione, devo
fare qualche prova.
ciao e grazie, a.

 - possibilita' di impostare dimensioni e posizione del frm antemprima.
E' sufficiente impostare le voci del registry con:
SaveSetting "MCPrnEt", "Anteprima", "Top", <top>
SaveSetting "MCPrnEt", "Anteprima", "Left", <left>
SaveSetting "MCPrnEt", "Anteprima", "Width", <width>
SaveSetting "MCPrnEt", "Anteprima", "Height", <height>
Ciao, M.

 ha scritto
