Is this what you require?



fNum = FreeFile

Open "LPT1:" For Output As fNum