Hej, har problem med utskrift av adress-etiketter(A4 ark med självhäftand etiketter) Den här raden ser mystisk ut. !SendTo är fältet i databasen, kunde ju också skrivas rsAddress!SendTo. Då borde detta funka Nått som är intressant är hur du sparat adressen i databasen ! Detta kanske inte är aktuellt i ditt fall, men ett tips kan vara att använda Word genom COM automation för att skriva ut etiketterna (med Word synligt eller osynligt för användaren). Där finns ju redan inbyggt stöd för alla Avery-etiketter, så du kan "automatiskt" ha stöd för alla olika etikettformat. Tack för att du fick mej att tänka i rätt spår!Print Address Labels
Skall skriva ut ett par hundra st.2-3 kolumner, x antal rader. Kommer till kolumn 1 utan problem,
sedan är det stopp.Koden=
Öppna rs
With rsAddress
Do Until .EOF
Printer.Print !SendTo;Tab(60);
.MoveNext
Printer.Print
Printer.Print
Loop
.Close
End With
Set rsAddress = Nothing
Hoppas att någon har lösningen/ Göran BlomgrenSv: Print Address Labels
Printer.Print !SendTo;Tab(60);
Vad är !SendTo
Det sista tecknet (;) skall väl inte vara med eller ! ?Sv:Print Address Labels
Tecknet (;) kan vara fel men det var en test för att skriva ut nästa post
i en ny kolumn.
Jag behöver 2 kolumner med etiketter av typ Avery.
Det skall skrivas ut ny adress i varje etikett.
Mvh/GöranSv: Print Address Labels
<code>
Dim rspost1 As String, rspost2 As String
With rsAddress
On Error Resume Next ' udda antal poster
Do Until .EOF
rspost1 = !SendTo
.MoveNext
rspost2 = !SendTo
Printer.Print rspost1; Tab(60); rspost2
Printer.Print
Printer.Print
.MoveNext
Loop
.Close
End With
Set rsAddress = Nothing
</code>
Edit : Obs ändrat om du var snabb och läste innan jag tänkte till en gång till
Denna kod gällerSv:Print Address Labels
Printern kan ju inte vända tillbaka och skriva nästa rad !
Har du VbCrLf i databastexten ?Sv: Print Address Labels
Sv: Print Address Labels
I !SendTo lagrades komplett adress som memo, detta funkade bra vid utskrift av endast 1 kolumn.
Programmet är ett föreningsregister, med bl.a massutskick till medlemmarna. För att förhindra dubbelutskick till t.ex både man och hustru använde jag "!SendTo".
Nu känner jag istället av om !SendTo har något värde, och i så fall hämtas alla adressuppgifter från databasen, förnamn,efternamn gatuadress osv.
Funkar perfekt och tack för hjälpen