フォームを使わないで印刷する方法

質問

VBで印刷を行うようにしたいのですが、参考にするものはフォームを使っているものばかりで・・
自分が作りたいのは、Cドライブにあるtest.txtを印刷できれば良いものです。プラス条件として横印刷、余白は5ｃｍです。ご教授お願いします。

回答No.3

takamoke · ベストアンサー

といあえず、こんなもんでいかが

***=c:***.txt
’とりあえず、テキスト読み込む
PRINTER_SET

Printer.PaperSize = vbPRPSA4 ' A4、210 x 297 mm
Printer.Orientation = vbPRORLandscape ' = 2　　　用紙横
Printer.Scale (0, 0)-(125, 45)　　’好き勝手に割り当てる
Printer.FontSize = 11

Printer.CurrentX = **　　’割り当てた座標軸を与える
Printer.CurrentY = **

Printer.Print ***

Printer.EndDoc　’このコマンドで　プリント開始

Public Sub PRINTER_SET()
’プリンターの指定

'Dim RENPURIDRV As String
'Dim i As Integer
'RENPURIDRV = "Mytalk FAX"
'RENPURIDRV = "Canon BJC-400J (MS)"
'RENPURIDRV = "NEC PC-PR201CL"
'RENPURIDRV
CUTPURIDRV="*****"
For I = 0 To Printers.Count - 1

If Printers(I).DeviceName = CUTPURIDRV Then
Set Printer = Printers(I)
Exit For
End If
Next I

回答No.2

sam_inoue

CreateObjectでExcelを掴んで印刷するとかはいかがですか？
もちろん、Excelのインストールが前提になりますが。
Excelのウィンドウ非表示のままで印刷まで行なうことができます。

回答No.1

skink

こんにちは。

たとえば、フォームの「印刷」ボタンをクリックしたら印刷したいファイルを開き、
Line Inputなどで内容を読み込み、一旦バッファに保存して最後にPrintOutで印刷すればよいと思うのですが。

印刷の設定についてはVBはあんまり細かい制御はできないので、不都合がなければ前もって設定された印刷条件を使うようにしたらいいと思います。

補足

質問内容でも書きましたが、フォームを使わない方法をお聞きしたいのですが・・・