Newsgroup: it.comp.appl.access
Titolo: come migliorare tutto questo?

rivate Sub Corpo_Print(Cancel As Integer, PrintCount As Integer)
On Error GoTo Corpo_Format_Exit
Dim lunghvoloarrivo As Single
Dim lunghvolopartenza As Single
Dim lungh As Single
Dim lunghp As Single
Dim AR  As TextBox
Dim oraA As TextBox
Dim oraP As TextBox
Dim PART As TextBox
Set AR = VOLOARR
Set oraA = STA
Set oraP = STD
Set PART = VOLOPART
 
If Len(oraA) = 4 Then lunghvoloarrivo = ((Left(oraA.Value, 2) * 1.5) + ((Right(oraA, 2) / 10) * 0.25)) + 1.138
If Len(oraA) = 3 Then lunghvoloarrivo = ((Left(oraA.Value, 1) * 1.5) + ((Right(oraA, 2) / 10) * 0.25)) + 1.138
If Len(oraA) = 2 Then lunghvoloarrivo = ((Right(oraA, 2) / 10) * 0.25) + 1.138
If Len(oraA) = 1 Then lunghvoloarrivo = 0 + 1.138
If Len(oraP) = 4 Then lunghvolopartenza = (Left(oraP.Value, 2) * 1.5) + ((Right(oraP, 2) / 10) * 0.25) + 1.138
If Len(oraP) = 3 Then lunghvolopartenza = (Left(oraP.Value, 1) * 1.5) + ((Right(oraP, 2) / 10) * 0.25) + 1.138
If Len(oraP) = 2 Then lunghvolopartenza = ((Right(oraA, 2) / 10) * 0.25) + 1.138
If Len(oraP) = 1 Then lunghvolopartenza = 0 + 1.138
posiz = Me.CurrentX
    posizP = Me.CurrentY
 Me.ScaleMode = 7
 Me.Line ((posiz + 1.138), posizP)-((posiz + 37.201), posizP), 8421504
 posiz = 0
 posizP = 0
 Me.CurrentY = posizP
 
 Me.CurrentX = posiz
  If (DATAARR < data) And (DATAPART > data) Then
   lungh = 1.138
   lunghp = 37.201
    End If
    If (DATAARR < data) And (DATAPART = data) Then
    lungh = 1.138
    lunghp = lunghvolopartenza
    End If
    If (DATAARR = data) And (DATAPART > data) Then
    lungh = lunghvoloarrivo
    lunghp = 37.201
    End If
    If (DATAARR = data) And (DATAPART = data) Then
    lungh = lunghvoloarrivo
    lunghp = lunghvolopartenza
    End If
 
    Me.DrawWidth = 25
    If ([STAND] = "1") Then Line (lungh, (posizP + 0.1))-(lunghp, (posizP + 0.1)), 255
    If ([STAND] = "2") Then Line (lungh, (posizP + 0.1))-(lunghp, (posizP + 0.1)), 8454143
    If ([STAND] = "3") Then Line (lungh, (posizP + 0.1))-(lunghp, (posizP + 0.1)), 8421376
    If ([STAND] = "4") Then Line (lungh, (posizP + 0.1))-(lunghp, (posizP + 0.1)), 255
    If ([STAND] = "5") Then Line (lungh, (posizP + 0.1))-(lunghp, (posizP + 0.1)), 16777088
    If ([STAND] = "6") Then Line (lungh, (posizP + 0.1))-(lunghp, (posizP + 0.1)), 8404992
    If ([STAND] = "7") Then Line (lungh, (posizP + 0.1))-(lunghp, (posizP + 0.1)), 33023
    If ([STAND] = "8") Then Line (lungh, (posizP + 0.1))-(lunghp, (posizP + 0.1)), 8421376
    If ([STAND] = "9") Then Line (lungh, (posizP + 0.1))-(lunghp, (posizP + 0.1)), 255
    If ([STAND] = "10") Then Line (lungh, (posizP + 0.1))-(lunghp, (posizP + 0.1)), 8454143
    If ([STAND] = "11") Then Line (lungh, (posizP + 0.1))-(lunghp, (posizP + 0.1)), 8421376
    If ([STAND] = "12") Then Line (lungh, (posizP + 0.1))-(lunghp, (posizP + 0.1)), 8404992
    If ([STAND] = "14") Then Line (lungh, (posizP + 0.1))-(lunghp, (posizP + 0.1)), 8454143
    If ([STAND] = "20") Then Line (lungh, (posizP + 0.1))-(lunghp, (posizP + 0.1)), 33023
    If ([STAND] = "21") Then Line (lungh, (posizP + 0.1))-(lunghp, (posizP + 0.1)), 16777088
    If ([STAND] = "22") Then Line (lungh, (posizP + 0.1))-(lunghp, (posizP + 0.1)), 255
    If ([STAND] = "23") Then Line (lungh, (posizP + 0.1))-(lunghp, (posizP + 0.1)), 8454143
    If ([STAND] = "24") Then Line (lungh, (posizP + 0.1))-(lunghp, (posizP + 0.1)), 8421376
    If ([STAND] = "25") Then Line (lungh, (posizP + 0.1))-(lunghp, (posizP + 0.1)), 8404992
    If ([STAND] = "26") Then Line (lungh, (posizP + 0.1))-(lunghp, (posizP + 0.1)), 33023
    If ([STAND] = "27") Then Line (lungh, (posizP + 0.1))-(lunghp, (posizP + 0.1)), 16777088
    If ([STAND] = "29") Then Line (lungh, (posizP + 0.1))-(lunghp, (posizP + 0.1)), 255
    'If ([STAND] = "31") Then Line (lungh, (posizP + 0.1))-(lunghp, (posizP + 0.1)), 8454143
    'If ([STAND] = "32") Then Line (lungh, (posizP + 0.1))-(lunghp, (posizP + 0.1)), 8421376
    'If ([STAND] = "33") Then Line (lungh, (posizP + 0.1))-(lunghp, (posizP + 0.1)), 33023
    If ([STAND] = "41") Then Line (lungh, (posizP + 0.1))-(lunghp, (posizP + 0.1)), 16777088
    If ([STAND] = "42") Then Line (lungh, (posizP + 0.1))-(lunghp, (posizP + 0.1)), 255
    If ([STAND] = "43") Then Line (lungh, (posizP + 0.1))-(lunghp, (posizP + 0.1)), 16777088
 
 Me.DrawWidth = 1
 For i = 0 To 144
 posiz = 0
 Me.ScaleMode = 7
 
 posiz = (posiz + (0.25 * i)) + 1.138
 If (i / 6) = 0 Or (i / 6) = Int((i / 6)) Then Me.DrawWidth = 5
 Me.Line (posiz, posizP)-(posiz, (posizP + 0.451)), 8421504
 Me.CurrentY = posizP
 
   Me.DrawWidth = 1
 
 Next i
 
 
 Me.CurrentY = posizP - 0.1
 Me.CurrentX = ((lunghvoloarrivo + 0.4) + (((lunghvolopartenza + 0.1) - (lunghvoloarrivo + 0.4)) / 2) - 0.2)
 Me.FontSize = 5
 
 Me.ForeColor = 0
 Me.FontSize = 6
 Me.CurrentY = posizP + 0.1
 Me.CurrentX = lunghvolopartenza
 
 
    If (DATAARR < data) And (DATAPART > data) Then
    lungh = 1.138 - 0.4
    lunghp = 37.201
    End If
   If (DATAARR < data) And (DATAPART = data) Then
   lungh = 1.138 - 0.4
    lunghp = lunghvolopartenza - 0.1
    End If
    If (DATAARR = data) And (DATAPART > data) Then
    lungh = lunghvoloarrivo - 0.4
    lunghp = 37.201
    End If
    If (DATAARR = data) And (DATAPART = data) Then
    lungh = lunghvoloarrivo - 0.4
    lunghp = lunghvolopartenza - 0.1
    End If
    Me.ScaleMode = 7
    Me.FontName = "arial"
    Me.FontSize = 6
    Me.FontBold = True
    Me.ForeColor = 0
    Me.CurrentX = lungh
    Me.CurrentY = posizP + 0.165
    Me.Print [VOLOARR]
    Me.CurrentY = posizP
    Me.CurrentX = ((lungh + 0.4) + (((lunghp + 0.1) - (lungh + 0.4)) / 2) - 0.2)
    Me.FontSize = 5
    If STAND = "t2" Or STAND = "8421631" Then Me.ForeColor = 16777215
    Me.Print AEROMOBA
    Me.ForeColor = 0
    Me.FontSize = 6
    Me.CurrentY = posizP + 0.165
    Me.CurrentX = lunghp
    Me.Print [VOLOPART]
 
Corpo_Format_Exit:
    Exit Sub
Corpo_Format_Err:
    MsgBox Error$
    Resume Corpo_Format_Exit
GoTo FINE
AAA:
FINE:
End Sub
-- 
gianluca 
------------------------------------------------------------------------
View this thread: 
http://www.itsistemi.net/viewtopic-791886.html
Inviato via 
http://www.itsistemi.net

io vorrei anche provarci ma puoi descrivere quello che la sub dovrebbe 
fare o fa?
se devo leggermi tutto il codice e capire quello che fa non conoscendo 
neanche il database su cui verrà impiegato, con il mio grado di 
conoscenze farei notte

Beh Gianluca cosa vuoi da questa richiesta...???
Mettiti nei panni di chi vorrebbe anche aiutarti e si vede
sbrodolare questo popò di codice addosso senza nemmeno una
riga di spiegazione....!!!!
Il codice in se non è complesso, si capisce benissimo che realizza una
struttura grafica di stampa, ma il succo della cosa cos'è....?????????
Saluti
@Alex

 ha scritto nel messaggio 
news:1143983761.9...@t31g2000cwb.googlegroups.com...



al nero di seppia?   slurp!!    :))
però, forse, scrivendo un oggetto più significativo .... ;)
Saluti
@Alex
Ciao, Daniele 

Buono il nero di seppia......!
;-)
Ciao Daniele
@Alex