Graag had ik tekst die ingevoerd is in een textbox uitgeprint op dirverse formaten van etiketten.
Gezien ik niet veel afweet van vba heb ik dit proberen te doen via macro opnemen.
Hierin selecteer ik eerst de tekst in de tekstbox en ga ik daarna naar bestand afdrukken...
Hier selecteer ik volgende :
printer : Brother ql500
afdrukbereik : selektie
aanpassen aan papierformaat : 65mm*29mm
+ ok
Deze opname genereert uiteindelijk volgende kode :
ActivePrinter = "Brother QL-500"
Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _
wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, _
Collate:=True, Background:=True, PrintToFile:=False, PrintZoomColumn:=0, _
PrintZoomRow:=0, PrintZoomPaperWidth:=3515, PrintZoomPaperHeight:=1639
Probleem is dat het hele document afgedrukt wordt ipv de selektie in het tekstvak.
Vraag is nu of dit wel mogelijk is in word (zou toch vreemd zijn indien niet) en hoe ik dit best doe.
dank bij voorbaat,
m
Gezien ik niet veel afweet van vba heb ik dit proberen te doen via macro opnemen.
Hierin selecteer ik eerst de tekst in de tekstbox en ga ik daarna naar bestand afdrukken...
Hier selecteer ik volgende :
printer : Brother ql500
afdrukbereik : selektie
aanpassen aan papierformaat : 65mm*29mm
+ ok
Deze opname genereert uiteindelijk volgende kode :
ActivePrinter = "Brother QL-500"
Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _
wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, _
Collate:=True, Background:=True, PrintToFile:=False, PrintZoomColumn:=0, _
PrintZoomRow:=0, PrintZoomPaperWidth:=3515, PrintZoomPaperHeight:=1639
Probleem is dat het hele document afgedrukt wordt ipv de selektie in het tekstvak.
Vraag is nu of dit wel mogelijk is in word (zou toch vreemd zijn indien niet) en hoe ik dit best doe.
dank bij voorbaat,
m
