[ stole66 @ 23.12.2004. 00:48 ] @
| 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 |