• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Afdrukken slaan en liggend in 1 document

Status
Niet open voor verdere reacties.

schuurar

Gebruiker
Lid geworden
15 aug 2009
Berichten
417
Ik heb waarschijnlijk een te makkelijke vraag.

Ik heb een document waarin ik wat overzichten verwerkt heb.
Nu heb ik aangegeven wat er op welke pagin geprint moet worden.
Maar nu zou ik graag willen dat sommige pagina's staant geprint worden en andere pagina's liggend.

Is dit mogelijk ?
 
Hoi,

Dat kan je niet in één werkblad doen.
Wel kan je per werkblad bepalen of dit liggend of staand moet worden afgedrukt.
 
das erg jammer dan.

Heb het wel een keer ein word gezien dus ik dacht zal ook vast in excel kunnen
 
in Word kun je dit idd per pagina instellen.
In Excel kan je het enkel per worksheet.
 
Helaas dan zal ik het anders op moeten lossen!

Bedankt in elk geval
 
Misschien toch een oplossing!

Ik kan jou heel misschien helpen!
Je kunt eventueel Macro's maken met een VBA code,
Zodat je aangeeft welke cellen je staand wil afdrukken en welke cellen je liggend wil afdrukken.
Het nadeel wat hierbij komt kijken, is dat je wel een kind of button moet creeëren om de macro aan toe te voegen.

Hoe doe je dit?
Ik weet niet hoe ver jou ervaring is! Maar ik zal het even uitleggen.
Je opent Excel en duwt dan alt + f11 in.
Vervolgens zie je aan de linkerkant een balk staan met jou werkbladen!
Klik in deze balk met de rechter muisknop op Microsoft Excel Objects.
Vervolgens doe je insert en dan Module.
Je krijgt nu een wit scherm te zien in het midden van het scherm.
Hier kun je ''formules'' gaan invoeren
Dit is de formule van het printen.

Code:
Private Sub DeNaamVanJeButton_Click()
    With ActiveSheet
        .PageSetup.PrintArea = "$A$1:$B$2"
        .PageSetup.Orientation = xlPortrait
        .PrintOut , Copies:=1
    End With
End Sub

In de eerste regel staat de naam van je Macro. Noem deze bijvoorbeeld gewoon Print1. De _Click() betekent dat hij gaat werken als je op de macro klikt.
De 3de regel PageSetup.PrintArea = "$A$1:$B$2" Is het afdrukbereik. Doe hier de cellen invoeren die jij graag afgedrukt ziet. in dit geval $A$1 is de linker bovencel en $B$1 is rechter onder cel. Hij print dus nu de volgende cellen uit A1, A2, B1, B2.
De 4de regel PageSetup.Orientation = xlPortrait stel je in of het staand of liggend moet worden geprint. Portrait is Staand en Landscape is liggend. Dus dit moet je dan eventueel veranderen per formule.
De 5de en laatste essentiele regel PrintOut , Copies:=1 Betekent hoevaak je hem wilt laten uitprinten als je op de macroknop klikt.

Voeg zo vaak een code toe als nodig is en verander altijd de naam en de cellen. Het is belangrijk dat je deze naam onthoud!
Vervolgens sluit je het VBA scherm af door op kruisje te klikken en je keer terug naar Excel.
Nu creeër je een knop. Ik doe dit meestal gewoon door Autovormen een rechthoek te tekenen. Zet er tekst in en geef hem een kleurtje! Zorg ervoor dat de knop niet in het bereik staat van het te printen stuk. Dit zou betekenen dat hij ook de knop doet afdrukken!
Klik vervolgens met de rechtermuisknop op de knop en doe Macro > macro toevoegen.
Kies je macro uit de lijst of typ de naam in van de macro Print1_Click bijvoorbeeld.
Nu kun je hem testen. Je klikt simpel op de knop en hij begint dan automatisch met printen!
Klaar!
Ik weet niet of dit handig voor jou is! Maar ik denk wel dat het zeker zal helpen met jou probleem!
En indien er nog vragen zijn, dan hoor ik het graag!
Maar ik ben ook pas een beginner hoor :)

Groetjes;

Sander
 
Ik ga hier morgen mee aan de slag!
Moet nu gaan slapen! Morgen vroeg op.

Ben niet echt een beginner meer. Weet aardig de weg in excel maar ben geen expert!

Bedankt in elk geval!!!
Ik laat het weten hoe het afloopt!
 
Ja ik ben op lange na ook geen expert ^^
Maar ik vond het wel handig om dit te delen, want het werkt ECHT handig voor mijn gegevens.
En indien hier een beginner met excel komt, die weet dan meteen hoe het moet :)
Succes
en Groetjes;
 
Zet deze macro in ThisWorkBook
Code:
Sub Printuit()
Layout = MsgBox("JA voor Landscape , NEE voor Portrait of Annuleren om te Stoppen ", vbYesNoCancel, "Selecteer de uitprint")
If Layout = vbYes Then
ActiveSheet.PageSetup.Orientation = xlLandscape  ' xlPortrait
ActiveWindow.SelectedSheets.PrintOut
ElseIf Layout = vbNo Then
ActiveSheet.PageSetup.Orientation = xlPortrait   ' xlLandscape
ActiveWindow.SelectedSheets.PrintOut
Exit Sub
End If
End Sub
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan