掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
余白を設定するには？ (ID：83688)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
PrintFormでは無理かと。。。 1.画面をキャプチャする 2.キャプチャした画面を印刷する といった手順で印刷すれば、余白の設定も可能です。 <サンプル> Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long) Private Sub Command1_Click() Dim LeftWhite As Single '左余白 Dim TopWhite As Single '上余白 LeftWhite = 1000 TopWhite = 2000 Call keybd_event(&HA4, &H56, &H1, 0) Call keybd_event(&H2C, &H79, &H1, 0) Call keybd_event(&H2C, &H79, &H3, 0) Call keybd_event(&HA4, &H56, &H3, 0) Printer.PaintPicture Clipboard.GetData(vbCFBitmap), LeftWhite, TopWhite Printer.EndDoc End Sub
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.