Follow along with the video below to see how to install our site as a web app on your home screen.
Nota: This feature may not be available in some browsers.
Option Explicit
Sub Main
Dim Es,R,P,E
Es = EstrazioneFin
Scrivi "Estrazione del " & DataEstrazione(Es)
Scrivi
For R = 1 To 12
If R = 11 Then R = 12
Scrivi NomeRuota(R) & " ",0,0
For P = 1 To 5
E = Estratto(Es,R,P)
Scrivi Format2(E) & " ",0,0
Next
Scrivi
Next
End Sub