画像の印刷 (ID:116847)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 ラベルを印刷するプログラムを作成していますが、ゼロックスのプリンタに合わせて作成していたのですが、他のプリンタ（ゼロックス以外）で出力すると画像やラインがすこしずれて印刷されてしまいます。 '花DATA STRMYFILE = Dir("" & App.Path & "\PICDATA\hana.bmp") If STRMYFILE <> "" Then MYSTR = App.Path + "\PICDATA\" + STRMYFILE pictblt 3.5, 20, 34, 41, MYSTR, sift_x End If Sub pictblt(Left As Single, Top As Single, Width As Single, Height As Single, PASS As String, sift_x As Integer) On Error GoTo ERR Dim R_NAME As String Dim X1 As Single, X2 As Single, Y1 As Single, Y2 As Single Set PICWK.Picture = LoadPicture(PASS) '1 X1 = Left + sift_x Y1 = Top X2 = Width Y2 = Height Printer.PaintPicture PICWK.Picture, X1, Y1, X2, Y2 Exit Sub ERR: End Sub こんな感じのソースになっています。 開発環境 Windows2000 Visual Basic 6.0SP6