Visual Basic 6 - stampante etichettatrice

Forum - Visual Basic 6 - stampante etichettatrice

mash_mash (Normal User)
Expert

Messaggi: 230
Iscritto: 25/07/2007

Postato alle 14:55
Venerdì, 10/07/2009

ciao raga , eccomi con un altro problema :
dovrei fare in modo che ad una determinata condizione venga inviata ad una "stampante etichettatrice" il comando di stampare un determinato file.
esempio pratico :

y = numero di stampe
x = variabile che richiama un file

se la variabile "X" = "888-888" allora
stampa con la "etichettatrice" il file c:\label\888-888
tante volte quanto è il valore della variabile y.

C'è' da considerare anche che la suddetta stampante non è quella predefinita.

GrG (Member)
Guru^2

Messaggi: 3430
Iscritto: 21/08/2007

Postato alle 17:35
Venerdì, 10/07/2009

dim c as integer
for c = 1 to y
if x = "888-888" then
stampa
end if
next c

è questo quello che cercavi?

theprogrammer (Normal User)
Guru^2

Messaggi: 2509
Iscritto: 28/01/2009

Postato alle 19:19
Venerdì, 10/07/2009

Testo quotato

Postato originariamente da GrG:

dim c as integer
for c = 1 to y
if x = "888-888" then
stampa
end if
next c

è questo quello che cercavi?

Secondo come l'ha detto, sarebbe meglio (ma e' uguale ...)

Codice sorgente - presumibilmente VB.NET

dim c as integer
if x = "888-888" then
  for c = 1 to y
    stampa
  next c
end if

Louis (Normal User)
Pro

Messaggi: 150
Iscritto: 22/04/2008

Postato alle 19:42
Venerdì, 10/07/2009

Cosa vuoi dire:
"C'è' da considerare anche che la suddetta stampante non è quella predefinita."

Che devi effettuare la scelta della stampante ?
Spiegati.
:-|

mash_mash (Normal User)
Expert

Messaggi: 230
Iscritto: 25/07/2007

Postato alle 8:11
Lunedì, 13/07/2009

Se sono stato poco chiaro vi chiedo venia , comunque : una volta soddisfatta una determinata condizione devo andare a selezionare la stampante e successivamente il file da stampare.
Spero di essere stato più chiaro.
Grazie.

GrG (Member)
Guru^2

Messaggi: 3430
Iscritto: 21/08/2007

Postato alle 13:12
Lunedì, 13/07/2009

ecco, e che problema c'è ad utilizzare un if?

Louis (Normal User)
Pro

Messaggi: 150
Iscritto: 22/04/2008

Postato alle 19:10
Lunedì, 13/07/2009

Per effettuare la scelta della stampante, su di una Frm posiziona due Label ed un ComboBox, poi prova il seguente codice:

Codice sorgente - presumibilmente VB.NET

Option Explicit
Private Sub Form_Load()
  RiempiCombo
  ScriviPredefinita
End Sub
'----------------------------------------------------------------------
Private Sub RiempiCombo()
  Dim prn As Printer
  For Each prn In Printers
    Combo1.AddItem prn.DeviceName
  Next
  Combo1.ListIndex = 0
End Sub
'----------------------------------------------------------------------
Private Sub ScriviPredefinita()
  Label1 = "La stampante predefinita è " + vbCrLf + Printer.DeviceName
End Sub
'----------------------------------------------------------------------
Private Sub Combo1_Click()
  Static once As Boolean
  If Not once Then
    once = Not once
    Exit Sub
  End If
  Dim prn As Printer
  For Each prn In Printers
    If prn.DeviceName = Combo1.Text Then
      Set Printer = prn
      Exit For
    End If
  Next
  Label2 = "La stampante scelta è " + vbCrLf + Printer.DeviceName
End Sub