Hej!

Jag har följande kod
<code>
Dim x As Single
Dim y As Single
Dim XMargin As Single
Dim YMargin As Single

Printer.ScaleMode = vbTwips ' set the printer scalemode to Twips

XMargin = (Printer.Width - Printer.ScaleWidth) / 2
YMargin = (Printer.Height - Printer.ScaleHeight) / 2

x = 1 * 1440 ' X position in 1 Inch
y = 1 * 1440 ' Y position in 1 Inch

x = x - XMargin ' adjust for margins
y = y - YMargin ' adjust for margins

Printer.PaintPicture MrvBarcode1.Picture, x, y
</code>

MrvBarcode1.Picture är ett streckkods-objekt

Mitt problem är att flytta utskriften på min sida. om jag ändrar värderna x och y så försvinner objektet fårn sidan. ex sätter jag x = 2000 så kommer inte hela objektet att skrivas ut, utan den skalas av.

Så hur kan jag styra koordinaterna på Paintpicture så att utskriften hamnar längre ner på sidan

Koden ovan är hämtad från Morovia vb6 exempel

Testa detta. Så ska du se hur enkelt det är att få sakerna där du vill ha dem...

<code>
Option Explicit

Private Sub Command1_Click()
Printer.PaperSize = vbPRPSA4 'A4
Printer.Orientation = vbPRORPortrait 'Porträtt
Printer.ScaleMode = vbMillimeters 'Pixelmode
Printer.Scale (0, 0)-(210, 297) 'Skala i mm (A4=210,297)
Printer.CurrentX = 25 'Sätt X pos
Printer.CurrentY = 25 'Sätt Y pos
Printer.FontSize = 8 'Fontsize
Printer.Print "Denna text hamnar 25 mm från vänsterkanten 25 ner"
Printer.CurrentX = 25 'Sätt X pos
Printer.CurrentY = 75 'Sätt Y Pos
Printer.Print "Bilden ska ligga på 50,100"
Printer.PaintPicture Picture1.Picture, 50, 100 'Placera bilden
Printer.EndDoc 'Skriv ut
End Sub
</code>

[peter.h]

<code>
Private Sub Command1_Click()
Printer.ScaleMode = 7 'cm
Printer.PaintPicture MrvBarcode1.Picture,3,26
Printer.EndDoc 'Skriv ut
End Sub
</code>

Skrev fel .

Jag har löst det.

Uppdaterade Objektet och då fungerade det.

Tack för hjälpen

/Tyronne