Print Automatically from Notepad 1

[johanap]

I have a button in a form to export a (temporary) table to a text file. This works fine with the code :

DoCmd.TransferText acExportDelim, "TestExporteren.txt", "TestTable", "D:\TEST\TestExporteren" & ".txt", True

Is there a code to Print also automatically the Text file (TestExporteren.txt) that was created in Notepad ?

Thank you very much.

 

[JediBMC]

The command line for opening a file in notepad is:

notepad.exe /p <filename>

To execute the command from access, you will need to use the Shell function. The complete code will look something like this:

'Declare the variables
Dim ExportFileName
Dim NotepadPrint

' Set the value of ExportFileName to the desired file name.
' This is done so that in the future you can use user
' entered values to change the file name.
ExportFileName = "D:\TEST\TestExporteren.txt"

' Create the export file using the transfertext command.
DoCmd.TransferText acExportDelim, "TestExporteren.txt", "TestTable", ExportFileName, True

' Open Notepad to print the file.  It is important to
' note that notepad will close once the file has printed.
NotepadPrint = Shell("notepad.exe /p " & ExportFileName)

I hope this is helpfull.

 

[johanap]

It works !

Thank you very much JediBMC