Print # 陳述式
將顯示格式化數據寫入循序檔案。
語法
列印#filenumber， [ outputlist ]
Print # 語句語法包含下列部分：
| 部分 | 描述 |
|---|---|
| filenumber | 必要。 任何有效的檔案編號。 |
| outputlist | 選用。 要 列印的表達式或表達式清單。 |
設定
outputlist 自變數設定如下：
[{ Spc (n) | Tab [ (n) ]}] [ expression ] [ charpos ]
| 設定 | 描述 |
|---|---|
| Spc (n) | 用來在輸出中插入空格符，其中 n 是要插入的空間字元數目。 |
| tab (n) | 用來將插入點定位為絕對數據行編號，其中 n 是數據行編號。 使用不含自變數的 索引標籤 ，將插入點放置在下一個 列印區域的開頭。 |
| expression | 要列印的數值表示式 或 字串表達式 。 |
| charpos | 指定下一個字元的插入點。 使用分號將插入點放在顯示的最後一個字元之後。 使用 Tab (n) 將插入點定位為絕對數據行編號。 使用不含自變數的 索引標籤 ，將插入點放置在下一個列印區域的開頭。 如果省略 charpos ，下一行會列印下一個字元。 |
註解
使用 Print # 寫入的數據通常會從具有 線條輸入 # 或 Input #的档案读取。
如果您省略 輸出清單 ，且在 filenumber 之後只包含清單分隔符，則會將空白行列印至檔案。
多個運算式可以使用空格或分號分隔。 空格的效果為分號。
針對 布林 值資料，列印 True 或 False 。 不論地區設定為何，不會翻譯 True 和 False 關鍵詞。
日期 數據會使用系統所辨識的標準簡短日期格式寫入檔案。 當日期或時間元件遺失或為零時，只會將提供的元件寫入檔案。
如果 輸出清單 數據為 空白，則不會將任何內容寫入檔案。 不過，如果 輸出清單 數據為 Null， 則會將 Null 寫入檔案。
對於 Error 數據，輸出會顯示為 Errorerrorcode。 不論地區設定為何， Error 關鍵詞 都無法翻譯。
使用 Print # 寫入檔案的所有數據都是國際感知;也就是說，數據會使用適當的十進位分隔符正確地格式化。
因為 Print # 會將資料的影像寫入檔案，所以您必須分隔數據，使其正確列印。 如果您使用沒有自變數 的 Tab 將列印位置移至下一個列印區域， Print # 也會將列印欄位之間的空格寫入檔案。
注意事項
如果您想要在未來的某個時間使用 Input # 語句從檔案讀取資料，請使用 Write # 語句，而不是 Print # 語句將數據寫入檔案。 使用 Write # 可藉由正確分隔每個個別數據欄位來確保每個數據欄位的完整性，以便使用 Input 重新讀入 #。 使用 Write # 也可確保它可以在任何地區設定中正確讀取。
範例
此範例會使用 Print # 語句將數據寫入檔案。
Open "TESTFILE" For Output As #1 ' Open file for output.
Print #1, "This is a test" ' Print text to file.
Print #1, ' Print blank line to file.
Print #1, "Zone 1"; Tab ; "Zone 2" ' Print in two print zones.
Print #1, "Hello" ; " " ; "World" ' Separate strings with space.
Print #1, Spc(5) ; "5 leading spaces " ' Print five leading spaces.
Print #1, Tab(10) ; "Hello" ' Print word at column 10.
' Assign Boolean, Date, Null and Error values.
Dim MyBool, MyDate, MyNull, MyError
MyBool = False : MyDate = #February 12, 1969# : MyNull = Null
MyError = CVErr(32767)
' True, False, Null, and Error are translated using locale settings of
' your system. Date literals are written using standard short date
' format.
Print #1, MyBool ; " is a Boolean value"
Print #1, MyDate ; " is a date"
Print #1, MyNull ; " is a null value"
Print #1, MyError ; " is an error value"
Close #1 ' Close file.
另請參閱
支援和意見反應
有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。