Hallo zusammen,
mein Problem ist folgendes:
Aud einer Access2’ Anwendung heraus möchte ich Aufkleber mit einer fortlaufenden Nummer drucken.
zb.: Von 6400 - 6500 (For i = 6400 to 6500)
?? Wie bekomme ich diese Zahlen auf meine Etiketten.
mfg
Peter
Wie Du einen Bericht mit einm Etikett aus einem Datensatz erstellst, ist Dir wohl klar.
Dann mach folgendes:
Erstelle eine Tabelle, sagen wir tblLabel, mit einem Feld ID.
Dann kannst Du mit
Sub ErzeugeDatensaetze()
Dim dbs As Database, rst As Recordset
Dim strSQL As String
Dim i As Integer
Set dbs = CurrentDb
strSQL = "SELECT \* from tblLabel"
Set rst = dbs.OpenRecordset(strSQL)
For i = 6400 To 6500
rst.AddNew
rst!id = i
rst.Update
Next
rst.Close
Set dbs = Nothing
End Sub
die gewünschten Datensätze erzeugen. Voilà!
Gruß
J.
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Wie Du einen Bericht mit einm Etikett aus einem Datensatz
erstellst, ist Dir wohl klar.
Dann mach folgendes:
Erstelle eine Tabelle, sagen wir tblLabel, mit einem Feld ID.Dann kannst Du mit
Sub ErzeugeDatensaetze()
Dim dbs As Database, rst As Recordset
Dim strSQL As String
Dim i As IntegerSet dbs = CurrentDb
strSQL = „SELECT * from tblLabel“
Set rst = dbs.OpenRecordset(strSQL)
For i = 6400 To 6500
rst.AddNew
rst!id = i
rst.Update
Next
rst.Close
Set dbs = Nothing
End Subdie gewünschten Datensätze erzeugen. Voilà!
Gruß
Vielen Dank für deine Antwort.
Die Idee mit der datenbank hatte ich auch schon.
Eigentlich hoffte ich auf eine Lösung ohne Tabelle, da diese
jedesmal neu gefüllt werden muss.
Aber wenns anders nicht geht.
Danke
peter
J.
Hi,
Ich programmiere nicht in VBA (nur VB/Perl) aber der VB-Befehl zum Drucken ist
printer.print "text"
, die Befehle zum Positionieren sind
printer.CurrentX=wert
,
printer.CurrentY=wert
und
printer.scalemode=wert
(am besten auf mm setzten).
Damit kannst du dir was basteln, ohne eine neue Tabelle anzulegen.
cu, holli
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]