Private Sub cmdStampa_Click()
On Error Resume Next
If Text2.Text = "" Or Text3.Text = "" Or Text4.Text = "" Or Text1.Text = "" Then
MsgBox "INSERISCI TUTI I DATI!!!!!!!!!", 48, "ERRORE"
Exit Sub
End If
For ii = 1 To CSng(txtBrKop.Text)
Printer.ScaleMode = 5
Printer.FontName = "MS Sans Serif"
Printer.FontSize = 12
Printer.PrintQuality = -2
Printer.PaperSize = vbPRPSUser
Printer.Width = 7.08661417 * 1440
Printer.Height = 0.590557118 * 1440 ' 2 inches * 1440 TWIPS per inch
Printer.CurrentX = 0
Printer.CurrentY = 0
Printer.Print "Articolo "; , Spc(15); "Pellame"; Spc(18); "Tacco"; Spc(17); ; , "Num"
Printer.Print Text2.Text; , Spc(15); ; Text3.Text; Spc(15); Text4.Text; Spc(15); ; , Text1.Text
Printer.Print
Printer.NewPage
Printer.EndDoc
Next