Jag vill skriva ut innehållet i en listbox. Innehållet i listen är rätt omfattande, så utskriften skall presenteras i landscape.

Just nu kör jag

8<----

Private Sub Picture2_Click()

For i = 0 To List1.ListCount - 1
printer.Print List1.List(i)
Next
printer.EndDoc

End Sub

8<----

Men då får jag det utskrivet i portrait.

Hej Fredrik

Använd Printer.Orientation

<code>
Printer.Orientation = vbPRORLandscape
</code>

Hej
Men nu kommer 1000:- frågan, hur gör du för att
återställa till Portrait när du lämnar programmet.

Jag har ett program som skriver i Landscape,allt är frid och
fröjd. Men när jag sedan vill använda skrivaren till något annat
efter att mitt program har avslutats för länge sedan så står
inställningarna kvar i Landscape.

fungerande ! tips emotages tacksamt.
/Sven

Hej
när din utskrift är klar och du avslutat med Printer.Enddoc
använd då rutinen Printer.Orientation och ange Porträtt sä ställs skrivaren om.

Hej Jag skrev
"fungerande ! tips emotages tacksamt."
Gissa kan jag göra själv. Ditt förslag fungerar INTE.
/Sven

Jag skulle göra som så att jag kontrolerade innan vilet det var.
Efter din kod är klar så sätter du till baka den som det var
tex.

<code>
Dim piPrinter As Integer


piPrinter = Printer.Orientation


Printer.Orientation = vbPRORLandscape

din kod

Printer.Orientation = piPrinter
</code>


//Tobbe

Hej
Och du tror att det funkar ? ? Har du testat ?

Så här skall Testet funka godkänt.
Du gör en utskrift från Vb med Landscape satt.
Stänger programmet och öppnar tex NotePad
Då skall utskriften från NotePad komma i Portrait.
/Sven

Jag försökte bara hjälpa dig skall inte uprepas
För mig funkar det som det skall och om du läser lite i msdn

Note The effect of the properties of the Printer object depends on the driver supplied by the printer manufacturer. Some property settings may have no effect, or several different property settings may all have the same effect. Settings outside the accepted range may or may not produce an error. For more information, see the manufacturer's documentation for the specific driver.

mmmmmmmmmmmmmmmmmm. Driver
Säger som jag brukar "Är detta sant ?"
Ok skall kolla för 100 :e gången kör Canon BJ,men det skall väl kvitta
det är ju PrinterObjektet jag manipulerar.
Kan tilläggas att jag kör via CommonDialog Show Printer.
/Sven

Funkar lika bra där med tex

CommonDialog1.ShowPrinter
Printer.Orientation = CommonDialog1.Orientation

//Tobbe

Tack, detta fungerar utmärkt i min applikation!