Tilpas til A4 papir ved udskrivning!

Hvad med
Printer.PaperSize =  vbPRPSA4

Det sker der ikke noget ved!

Den vil bare ikke.....
Hverken med scale eller noget!!

LoadPicture("C:\test.jpg",vbLPCustom,,Printer.width,Printer.height)

Brug WindowsMetaFile ( WMF ), det kan skale det du har lavet på det.

Printer.Orientation = vbPRORLandscape
Printer.PaintPicture  LoadPicture("C:\test.gif",vbLPCustom,,Printer.width,Printer.height) Printer.EndDoc

OCP -> Hvordan skal jeg ellers sætte det ind i min sætning???

Hvis jeg skriver:

Printer.Orientation = vbPRORLandscape
Printer.PaintPicture LoadPicture("C:\test.gif"), Printer.Width, Printer.Height
Printer.EndDoc

Så bliver mit papir bare blankt!

Hvad er WMF???

Du har jo ikke skrevet det jeg foreslog...

Sorry:

Printer.PaintPicture LoadPicture("C:\test.jpg",vbLPCustom,,Printer.width,Printer.height)

HUSK der er to ,,

Den stopper her:

.PaintPicture

Og siger "Argument not optional"

Nogle gode ideer??

Printer.PaintPicture LoadPicture("C:\test.jpg",vbLPCustom,,Printer.width,Printer.height),0,0

Desværre den skriver STADIG for stort! kan man ikke sige at den må MAX skrive width = 21 cm og height = 29 cm???

Der kommer kunca 1/4 del ud af tegningen!

Jeg har en anden udprintning, det er godt nok nogle andre filer som kræver at de bliver åbnet op i en bestemt viewer... lidt ligesom PDF'er bliver åbnet op i Acrobar Reader... derefter bliver de skrevet ud og programmer lukker helt selv igen!

Kan man ikke sige til VB at den skal åbne filen i Photoeditor og printe din ud så den passer ind på siden og lukke programmet igen????

Det er fordi printer.height og width altid er angivet i TWIPS. NUUUUU skulle det virke:

Printer.PaintPicture LoadPicture("C:\test.jpg",vbLPCustom,,Printer.Width / Printer.TwipsPerPixelX, Printer.Height / Printer.TwipsPerPixelX),0,0

OCP>> HMmm var ellers ude i noget med noget picturebox, men det her virker jo fortræffeligt.

- Mikker

Ups... ERstat lige den sidste TwipsPerPixelX med TwipsPerPixelY :)

Nixen virker stadig ikke......

Det er sådan her min kode skal se ud???

Printer.PaintPicture LoadPicture("C:\test.gif", vbLPCustom, , Printer.Width / Printer.TwipsPerPixelX, Printer.Height / Printer.TwipsPerPixelY), 0, 0

Jeg kan bare ikke få den til at virke!!!!

Er den nogle rererancer jeg skal slå til? Eller????

Eller skal jeg sætte nogle mål ind???

Det er præcis sådan koden skal se ud. Hvordan virker det ikke?

Dette fungerer perfekt hos mig:

    Dim strFil As String
    strFil = "C:\Documents and Settings\Test\My Documents\My Pictures\antenna9.jpg"

    Printer.Orientation = vbPRORLandscape
    Printer.PaintPicture LoadPicture(strFil, vbLPCustom, , Printer.Width / Printer.TwipsPerPixelX, Printer.Height / Printer.TwipsPerPixelY), 0, 0
    Printer.EndDoc

Min gif der bliver skrevet alt for stort!!!

NÅH - Den skal kun tilpasse hvis billedet er for stort?

Så gør du således:

    Dim strFil As String
    Dim pic As Image
    strFil = "C:\Documents and Settings\Test\My Documents\My Pictures\antenna9.jpg"

    Image = LoadPicture(strFil)

    Printer.Orientation = vbPRORLandscape
    If Image.Height > Printer.Height Or Image.Width > Printer.Width Then
        Printer.PaintPicture LoadPicture(strFil, vbLPCustom, , Printer.Width / Printer.TwipsPerPixelX, Printer.Height / Printer.TwipsPerPixelY), 0, 0
    Else
        Printer.PaintPicture LoadPicture(strFil), 0, 0
    End If
    Printer.EndDoc

Der var lige en fejl:

    Dim strFil As String
    Dim pic As Image
    strFil = "C:\Documents and Settings\Test\My Documents\My Pictures\antenna9.jpg"

    Set pic = LoadPicture(strFil)

    Printer.Orientation = vbPRORLandscape
    If Image.Height > Printer.Height Or Image.Width > Printer.Width Then
        Printer.PaintPicture LoadPicture(strFil, vbLPCustom, , Printer.Width / Printer.TwipsPerPixelX, Printer.Height / Printer.TwipsPerPixelY), 0, 0
    Else
        Printer.PaintPicture LoadPicture(strFil), 0, 0
    End If
    Printer.EndDoc

Den siger type mismatch:

Dim strFil As String
Dim pic As Image

strFil = ("C:\test.gif")
Set pic = LoadPicture(strFil)

Printer.Orientation = vbPRORLandscape
If Image.Height > Printer.Height Or Image.Width > Printer.Width Then
        Printer.PaintPicture LoadPicture(strFil, vbLPCustom, , Printer.Width / Printer.TwipsPerPixelX, Printer.Height / Printer.TwipsPerPixelY), 0, 0
    Else
        Printer.PaintPicture LoadPicture(strFil), 0, 0
    End If
    Printer.EndDoc

Og stopper her:
Set pic = LoadPicture(strFil)

prøv strFil = "C:\test.gif" og ikke strFil = ("C:\test.gif")

Hvilken fejlbesked?

Har prøvet... samme besked!

Har du tjekket at test.gif rent faktisk er et billede?

JA!..... ikke noget problem der!

Hvis jeg skriver:

strFil = "C:\test.gif"
Set Image = LoadPicture(strFil)

så kommer den og siger:

Run-time error '383':
'Image' property is read-only

Og så marker den:
Set Image = LoadPicture(strFil)

Suk, gisp... Nu har jeg for en gangs skyld TESTET det jeg havde foreslået. Det kræver at du lægger en skjult picturebox (picture1) på din form:

Dim strFil As String
Dim pic As PictureBox

strFil = ("C:\test.gif")

Set pic = Picture1

pic.Picture = LoadPicture(strFil)

Printer.Orientation = vbPRORLandscape
If Image.Height > Printer.Height Or Image.Width > Printer.Width Then
        Printer.PaintPicture LoadPicture(strFil, vbLPCustom, , Printer.Width / Printer.TwipsPerPixelX, Printer.Height / Printer.TwipsPerPixelY), 0, 0
    Else
        Printer.PaintPicture LoadPicture(strFil), 0, 0
    End If
    Printer.EndDoc
End Sub

*GGG*

Virker stadig ikke!!

Hvad er der nu galt? Det virker i hvert fald hos mig!

Den kommer bare ud i for stor størrelse!

Den kan ikke være på parpiret!

Det var da utroligt! Det tilpasser sig perfekt til min printer.

Prøv lige dette:

prøv Dim strFil As String
Dim pic As PictureBox

strFil = ("C:\test.gif")

Set pic = Picture1

pic.Picture = LoadPicture(strFil)

Printer.Orientation = vbPRORLandscape
If Image.Height > Printer.Height Or Image.Width > Printer.Width Then
        Printer.PaintPicture LoadPicture(strFil, vbLPCustom, , (Printer.Width - 100)/ Printer.TwipsPerPixelX, (Printer.Height-100) / Printer.TwipsPerPixelY), 0, 0
    Else
        Printer.PaintPicture LoadPicture(strFil), 0, 0
    End If
    Printer.EndDoc
End Sub

Kan det være fordi Printer.Width returnerer en forkert værdi? Prøv lige at fortæl hvad Printer.Width og height returnerer...

Nixen... det samme!!

Bare for at kontrollere det: Kan du prøve med en jpg-fil?

Printer.Height = 11904
Printer.Width = 16834
Image.Width = 27093

Skal jeg prøve at sende billedet til dig????

Nu har jeg osse prøvet med en JPG... det er det samme!

Ja, prøv at sende det.
mailto:anonymanonym715@hotmail.com

Yes: Send på anonymanonym715@hotmail.com

Er sendt!

Kunne du ikke prøve at sende den form du har der virker tilbage til mig?? Så kan jeg lige se om jeg kan få det til at virke her????

Din fil virker sjovt nok heller ikke hos mig.

Ta daaaaaa.........

Dim strFil As String
Dim pic As Picture
strFil = ("C:\Documents and Settings\TGY.EC\My Documents\My Pictures\test.jpg")

Set pic = LoadPicture(strFil)

Printer.Orientation = vbPRORLandscape
If Image.Height > Printer.Height Or Image.Width > Printer.Width Then
    Printer.PaintPicture pic, 0, 0, Printer.ScaleWidth, Printer.ScaleHeight
Else
    Printer.PaintPicture pic, 0, 0
End If
Printer.EndDoc

Og slet så bare den picturebox på formen :o)

He he !!!

Du får sgu 50 for det!!!

Takker!

Og med en lille - men vigtig - rettelse:

Dim strFil As String
Dim pic As Picture
strFil = ("C:\Documents and Settings\TGY.EC\My Documents\My Pictures\test.jpg")

Set pic = LoadPicture(strFil)

Printer.Orientation = vbPRORLandscape
If pic.Height > Printer.ScaleHeight Or pic.Width > Printer.ScaleWidth Then
    Printer.PaintPicture pic, 0, 0, Printer.ScaleWidth, Printer.ScaleHeight
Else
    Printer.PaintPicture pic, 0, 0
End If
Printer.EndDoc

Hvad er foreskellen????

Jeg benytter den korrekte variabel og de korrekte properties til at kontroller om billedet kan være på en side.