Fra VB 6.0 til Text Doc?????????

Ja lav skriftypen om på teksten inde i WORD til Curier new så bliver det som du ser det i VB

Jaaa.... men hvis du har navnet "Ib" og navnet "Christian" så vil de komme til at stå sådan her:

Ib    Skolegade    75757575
Christian    Vestergade    65457885

Pga at "Christian" går over den første tabulator....

Du kan ændre tabuleringen i VB så den bliver længere, ellers ved jeg ikke lige hvad du ka gøre

Hvordan gør jeg så det???

Det er forskellen på det korteste og det længste navn der giver problemerne.
Brug mere end én tabulator

Open "c:\cnc\expert.txt" For Output As #1
Print #1, Text1.Text & vbTab & vbTab & Text2.Text & vbTab & vbTab & Text3.Text
Print #1, Text4.Text & vbTab & vbTab & Text5.Text & vbTab & vbTab & Text6.Text
Close #1

Jeg sidder med netop det problem og jeg har løst det med en .dot fil, med predefinerede tabuleringer.

Sub make_word_doc()

Dim docword As Object
Dim appword As Object
   
'*-----------------------------------------------------------------------
'* Lav Word applikation som Object
'*-----------------------------------------------------------------------
Set appword = CreateObject("Word.Application")

'*-----------------------------------------------------------------------
'* Lav dokumentet og set range
'*-----------------------------------------------------------------------
Set docword = appword.Documents.Add("c:\template\tabulering.dot")

Rynke10 -> Det virker jo ikke.... så kommer der bare længere mellem navn og gaden... har prøvet!!

Arnvig -> Det må jeg lige prøve....

Tabuleringen i VB indstilles ved at trykke på options og lave den om fra de 4 den er født med til noget andet(længden på det længste navn)

svarrenabe: det hjælper ikke at ændre tabuleringen i VB, hvis han er igang med at danne et Word dokument. Så skal ændringerne laves i Word.

Ja, men tabuleringen i VB behandles som mellemrum i word, hvis TAB = 4 i VB så er der 4 mellemrum i word eller notepad!! (mener jeg! :-) )

Hvad med at skrive det ud direkte. Du skriver jo selv at det ikke behøver at gå over word.

Printer.ScaleMode = 6 'millimeter
    Printer.CurrentX = 20
    Printer.CurrentY = 20
    Printer.Print navn
    Printer.CurrentX = 60
    Printer.CurrentY = 20
    Printer.Print adresse
    Printer.CurrentX = 100
    Printer.CurrentY = 20
    Printer.Print telefon

Så burde du kunne styre positionen helt nøjagtig hvor du vil have den.

Ahaaa........ nu skal jeg bare lige have passet det hele ind!!

Takker!

selv tak