da Ices_Eyes » dom mag 02, 2004 2:27 pm
Il codice, anche se fa un po' schifo, è questo:
Private Sub cmdPrintList_Click()
Dim intXPosition(7) As Integer
Dim intI As Integer
intXPosition(1) = 12
intXPosition(2) = 70
intXPosition(3) = 90
intXPosition(4) = 105
intXPosition(5) = 120
intXPosition(6) = 140
With picPrint
.Width = .ScaleX(210, vbMillimeters, vbTwips)
.Height = .ScaleY(297, vbMillimeters, vbTwips)
.Font.Name = "Times New Roman"
.CurrentX = .ScaleX(12, vbMillimeters, vbTwips)
.CurrentY = .ScaleY(12, vbMillimeters, vbTwips)
'Titolo
.FontBold = True
.FontSize = 14
picPrint.Print "Lista invii listini e cataloghi"
'Intestazioni
.FontSize = 12
.CurrentX = .ScaleX(12, vbMillimeters, vbTwips)
.CurrentY = .CurrentY + TextHeight("A") + 5
picPrint.Print "Cognome e nome"
.CurrentX = .CurrentX + 20
picPrint.Print "Indirizzo"
.CurrentX = .CurrentX + 20
picPrint.Print "Città"
.CurrentX = .CurrentX + 20
picPrint.Print "Provincia"
.CurrentX = .CurrentX + 20
picPrint.Print "CAP"
.CurrentX = .CurrentX + 20
picPrint.Print "Listino"
.CurrentX = .CurrentX + 20
picPrint.Print "Catalogo"
.FontBold = False
For intI = 1 To lswClient.ListItems.Count
.CurrentY = .CurrentY + TextHeight("A") + 5
'Cognme e nome
.CurrentX = intXPosition(1)
picPrint.Print lswClient.ListItems(intI).ListSubItems(1).Text & _
" " & lswClient.ListItems(intI).ListSubItems(2).Text
'Indirizzo
.CurrentX = intXPosition(2)
picPrint.Print lswClient.ListItems(intI).ListSubItems(6).Text
'Città
.CurrentX = intXPosition(3)
picPrint.Print lswClient.ListItems(intI).ListSubItems(7).Text
'Provincia
.CurrentX = intXPosition(4)
picPrint.Print lswClient.ListItems(intI).ListSubItems(8).Text
'CAP
.CurrentX = intXPosition(4)
picPrint.Print lswClient.ListItems(intI).ListSubItems(9).Text
'Listino
.CurrentX = intXPosition(5)
picPrint.Print lswClient.ListItems(intI).ListSubItems(3).Text
'Catalogo
.CurrentX = intXPosition(6)
picPrint.Print lswClient.ListItems(intI).ListSubItems(4).Text
Next
End With
Call SavePicture(picPrint.Image, "G:Prova.bmp")
DoEvents
End Sub