Newsgroup: it.comp.appl.access
Titolo: Font per codice fiscale

Carissimi,
ho la necessità di stampare il codice fiscale su una ricetta, che presenta 
(come ben conoscete) lo spazio prestampato, per lo stesso codice.
sto facento più provem ma non mi riesce di far corrispondere un carattere 
per ogni relativa casella.
Se inserisco un carattere piccolo, occupa mezzo spazio (di tutte le 
caselle), se ingrandisco il carattere (anche se non perfettamente), riempio 
tutte le caselle in larghezza ma in altezza escono fuori!
Come posso ovviare a questo problema?
Ciao
-- 
--------------------------------------
      Cataldo Formaro
-------------------------------------- 

 Ciao
Ciao,
Max

Cataldo Formaro ha scritto:

Se usi Font a dimensione costante come il CURRIER non dovresti avere
problemi.
@Alex

 ha scritto nel messaggio 
news:1156190470.0...@74g2000cwt.googlegroups.com...
Cataldo Formaro ha scritto:


@Alex
Risposta-------------------------------------
E' stato il primo font che ho provato, ma non mi trovavo perfettamente!
Mi sa che è da seguire la strada suggerita da Massimo, il problema è 
cominciare!


 Ciao
Ciao,
Max
Risposta-------------
Ciao Massimo,
Penso sia la strada giusta da seguire: quindi creare 16 controllo non 
associati ... e poi?
Un grosso saluto


 --------------------------------------
La soluzione di Massimo è da testare teoricamente è funzionale..!
Direi che implementarla è semplice se usi qualche stratagemma...!
Creati le 16 txtBox chiamandole con un nome univoco indicizzato:
txtCF1
txtCF2
.......
txtCF16
Ora popolarle è un giochetto...!
Ipotizzando strCF la stringa che contiene il C.F.
dim x as integer
For x=1 to 16
   Me.Controls("txtCF" & cstr(x))=Mid$(strCF,x,1)
NExt
Finito....
;-)
@Alex

 ha scritto nel messaggio 
news:1156192142.9...@b28g2000cwb.googlegroups.com...
Cataldo Formaro ha scritto:



txtCF1
txtCF2
.......
txtCF16



Finito....
;-)
@Alex
-----------[ RISPOSTA ]-----------------
La semplicità con cui risolvi certe situazioni, lascia senza parole!
Ti potrò dare conferma solo domani sera, debbo prima testare al lavoro.


 @Alex

 @Alex
E' un fulmine!!!


> E' un fulmine!!!
Allora è passato da qua questa notte... un temporalone ^__^
PS: Io domani invece sono dalle tue (di @Alex) parti nel pomeriggio. Ho un incontro con un cliente
Ciao,
Max

 --------------------------------------
La soluzione di Massimo č da testare teoricamente č funzionale..!
Direi che implementarla č semplice se usi qualche stratagemma...!
Creati le 16 txtBox chiamandole con un nome univoco indicizzato:
txtCF1
txtCF2
.......
txtCF16
Ora popolarle č un giochetto...!
Ipotizzando strCF la stringa che contiene il C.F.
dim x as integer
For x=1 to 16
   Me.Controls("txtCF" & cstr(x))=Mid$(strCF,x,1)
NExt
Finito....
;-)
@Alex
-----------[ Risposta ]---------------------
sto tentando una simulazione.
Trattandosi di un report, quale sarebbe il modo piů giusto per chiamare il 
codice?
Da tenere presente che il report non l'apro ma lo stampo direttamente.



La simulazione và benissimo!
Buona notte ad entrambi.


Massimo Piubelli ha scritto:

Ciao Max, innanzitutto mi fà piacere vedere che segui ancora noi del
NG ancorati ad Access...! ;-)
Se ti và mandami una Mail ti dò il mio numero e se ti liberi in
tempo(per me sono le 17:30)
possiamo anche bere qualcosa insieme, paga Sergio...!
Ciao buona notte...!
@Alex

 --------------------------------------
Speriamo anche il definitivo...!
Buona notte.
@Alex

 ha scritto nel messaggio 
news:1156198852.2...@h48g2000cwc.googlegroups.com...
Ciao Max, innanzitutto mi fà piacere vedere che segui ancora noi del
NG ancorati ad Access...! ;-)
Se ti và mandami una Mail ti dò il mio numero e se ti liberi in
tempo(per me sono le 17:30)
possiamo anche bere qualcosa insieme, paga Sergio...!
Ciao buona notte...!
@Alex
[risposta]
Sgrunt!
Ciao.
-- 
Sergio MAZZA 

Sergio MAZZA ha scritto:

Ma guarda un pò chi ha abboccato....
@Alex

 @Alex
Ciao,
Max

 Max
Ricevuto, ti ho risposto ed inviato SMS per il mio.
Sergio è solo dispiaciuto di non esserci, non per i soldi....!!!
@Alex

 @Alex
Ciao,
Max

 ha scritto nel messaggio 
news:eceqga$7fb$1...@area.cu.mi.it...
Ok, digli pure che la sua carta sarà con noi...
Come scritto in emeail... sei sempre più veloce!!!
Ciao,
Max
[risposta]
Un sette di picche va bene come carta?
Ciao.
-- 
Sergio MAZZA 

Sergio MAZZA ha scritto:

Hai detto 7 perchè è MOOOLTO più grande del 2 al quale si è
abituati....???
;-)
@Alex

 ha scritto nel messaggio 
news:1156252288.2...@m73g2000cwd.googlegroups.com...
Hai detto 7 perchè è MOOOLTO più grande del 2 al quale si è
abituati....???
;-)
@Alex
[risposta]
Erano rimasti quelli nel mazzo...
Ciao.
-- 
Sergio MAZZA 

 Sergio MAZZA
Beato te io solo 2 di picche colleziono...!
;-)
E' arrivato l'uovo ...?
Ultimamente ho il server che mi fà scherzi con gli allegati...!!
@Alex

 ha scritto nel messaggio 
news:1156257229.7...@m79g2000cwm.googlegroups.com...
Beato te io solo 2 di picche colleziono...!
;-)
E' arrivato l'uovo ...?
Ultimamente ho il server che mi fà scherzi con gli allegati...!!
@Alex
[risposta]
Sì è arrivato ma sono "gasato" con Visual Web Developer e 
ASP.NET
.
Sto impostando il nuovo sito web e con l'occasione sto studiano le .NET 
solution...
Ciao.
-- 
Sergio MAZZA 

 Sergio MAZZA
Fai apposta allora.... dillo se vuoi girare il coltello nella
piaga...!!
@Alex

 ha scritto nel messaggio 
news:1156262147.6...@i3g2000cwc.googlegroups.com...
Fai apposta allora.... dillo se vuoi girare il coltello nella
piaga...!!
@Alex
[risposta]
Eh! Eh!
Se posso anche nella piega...
Ciao.
-- 
Sergio MAZZA 

Ciao Alex,
dopo aver creato le 16 txtbox non associate,
Ho utilizzato l'evento su Pagina del report,
ecco il codice:
-------------------------------
Private Sub Report_Page()
Option Explicit
Dim x As Integer
For x = 1 To 16
   Me.Controls("txtCF" & CStr(x)) = Mid$(strCF, x, 1)
Next
End Sub
----------------------------------
Ma non mi stampa nulla e nemmeno mi dà alcun tipo di msg.
Cosa sarà? Fammi sapere.


 ha scritto nel messaggio
news:JiJGg.78938$_J1.7...@twister2.libero.it...

C'è un piccolo errore di scrittura:
   Me.Controls("txtCF" & CStr(x)) = Mid$(txtCF, x, 1)
Ciao
Paolo

 Paolo
No, l'errore l'hai introdotto tu ora era giusto, rileggi il Post
originale.
Questo è corretto:
Me.Controls("txtCF" & CStr(x)) = Mid$(strCF, x, 1)
Ipotizzando strCF la stringa che contiene il C.F. , nel tuo caso txtCF
cosa sarebbe...????
@Alex

 ha scritto nel messaggio
news:1156313293.6...@m73g2000cwd.googlegroups.com...





@Alex
-----------
partendo dal presupposto cle la casella contenente il codice fiscale si
chiamata txtCF e che le 16 caselle si chiamino txtCF1... txtCF16,
devo estrarre da txtCF i vari caratteri con
Mid$(txtCF, x, 1).
Ciao, buona giornata
Paolo

 ha scritto nel messaggio
news:1156313293.6...@m73g2000cwd.googlegroups.com...





@Alex
-----
pardon
Paolo

 ha scritto nel messaggio
news:44ebecf1$0$47973$4faf...@reader3.news.tin.it...

scusami Cataldo, il codice di Alessandro è corretto, usalo così:
Private Sub Report_Activate()
Dim x As Integer
For x = 1 To 16
   Me.Controls("txtCF" & CStr(x)) = Mid$(strCF, x, 1)
Next
End Sub
su evento di Attivazione, altrimenti non si vede nulla come tu hai detto.
Ciao

---[ CUT ]-----
Ciao Alex, Ciao Paolo
come già accennavo ad Alex, nel post di giorni fà, il report lo stampo
direttamente con click del miobottone, senza che esso venga aperto; per cui
l'evento di attivazione non può esserci, o mi sbaglio? Conseguenza, mi
stampa il report senza CF.
Diversamente se lo apro in anteprima, tutto OK! QUindi il codice è OK!
--------------------------------------
      Cataldo Formaro
-------------------------------------- 
PS:
Erroneamente ho risposto al mittente: Paolo. 

 ha scritto nel messaggio
news:SsYGg.79167$zy5.1...@twister1.libero.it...

Prova così:
Private Sub Corpo_Format(Cancel As Integer, FormatCount As Integer)


 ha scritto nel messaggio 
news:44ec5c8e$0$15867$4faf...@reader2.news.tin.it...

No, non mi restituisce il CF.
Stavo pensando ad aggirare l'ostacolo:
sull'evento del mioclick, anzichè stampare il report; lo apro in modalita 
preview, poi lo stampo e quindi poi lo chiudo.
Ma a fronte di quale evento lo chiuderò? I report sono cosi poveri di 
eventi.
Ciao


 ha scritto nel messaggio
news:_oZGg.79658$_J1.7...@twister2.libero.it...

hai guardato l'esempio che ti ho inviato?
Ciao
Paolo

 ha scritto nel messaggio 
news:44ec63f7$0$15864$4faf...@reader2.news.tin.it...

Non mi riesce ad aprirlo. Invialo zippato.


Cataldo Formaro ha scritto:
Non ricordo se anche senza aprirlo in preview la cosa funzioni, ma
presumo di si...
su evento Open del Report ovviamente...!
In alternativa apri il report in Preview in modalità Hidden, poi usi
PrintOut per mandarlo in stampa...!
@Alex

 ha scritto nel messaggio 
news:1156343808....@i42g2000cwa.googlegroups.com...
Cataldo Formaro ha scritto:


@Alex
----risposta---
fino a qui ci sono arrivato, solo che poi su quale evento lo chiudo?
Dal mio pulsante, o dal report stesso?


CUT
Risolto!!
Grazie ad Alex per il codice,
grazie a Paolo per il Macro consiglio finale!
