sarnath
Legacy Member
Onderstaande code wordt gebruikt om adresetiketten te printen van vb.net naar word, per pagina worden er 21 etiketten geprint.
Ik roep een word doc op waarin de etiketten staan getekend samen met de juiste marges etc,..
nu is mijn probleem hetvolgende, als ik meer als 21 etiketten heb wordt er naar een nieuwe pagina gesprongen, daar heb ik echter het probleem dat alles gewoonweg achtereen wordt geprint op een lege pagina en er dus niet een nieuwe pagina met etiketten wordt aangemaakt.
Als ik op pagina 1 manueel een tab of enter doe ik het laatste etiket dan wordt naar de volgende pagina gesprongen, doe ik dit in de code of eender wat qua verspringing gebeurt dit niet, iemand enig idee?
Ik roep een word doc op waarin de etiketten staan getekend samen met de juiste marges etc,..
nu is mijn probleem hetvolgende, als ik meer als 21 etiketten heb wordt er naar een nieuwe pagina gesprongen, daar heb ik echter het probleem dat alles gewoonweg achtereen wordt geprint op een lege pagina en er dus niet een nieuwe pagina met etiketten wordt aangemaakt.
Als ik op pagina 1 manueel een tab of enter doe ik het laatste etiket dan wordt naar de volgende pagina gesprongen, doe ik dit in de code of eender wat qua verspringing gebeurt dit niet, iemand enig idee?
Code:
Dim WordApp As Word.Application = New Word.Application
Dim worddoc As Word.Document = New Word.Document
worddoc = WordApp.Documents.Add("C:/etiketten.docx", True, 0, True)
WordApp.Visible = True
worddoc.Activate()
For i As Integer = 0 To dtZoekenAdressen.Rows.Count - 1
WordApp.Selection.TypeText(dtZoekenAdressen.Rows(i).Item(2))
WordApp.Selection.TypeParagraph()
WordApp.Selection.TypeText(dtZoekenAdressen.Rows(i).Item(4) & " " & dtZoekenAdressen.Rows(i).Item(5))
WordApp.Selection.TypeParagraph()
WordApp.Selection.TypeText(dtZoekenAdressen.Rows(i).Item(7) & " " & dtZoekenAdressen.Rows(i).Item(8))
WordApp.Selection.TypeParagraph()
WordApp.Selection.TypeText(dtZoekenAdressen.Rows(i).Item(9))
WordApp.Selection.MoveRight()
WordApp.Selection.MoveRight()
'Next