Behöver en "skriv ut funktion". Har tänkt lägga en ikon i form av en skrivare direkt på sidan. Hur löser jag detta? Activex komponent? ...eller finns det ett annat sätt som bara skriver ut texterna med radbrudd?
nedanstående kod, skriver ut filen minfil.txt
Du kan självklart skriva ut genom att ange text direkt i ett dokument också. alltså utan att behöva ha ett färdigt dokument som du skriver ut.
Set oWord = CreateObject ("Word.Application")
oWord.Visible = False
oWord.Documents.Open "c:\minfil.txt"
oWord.PrintOut
oWord.Documents.Close
oWord.Quit
Set oWord = Nothing
Denna kan komma till användning, så du inte stänger dokumentet innan det skrivits ut.
Sub Pause(Sec)
Dim Start
Start = Timer() ' Ange starttid.
Do While Timer < (Start + Sec)
Loop
End Sub