Delen via

Macro voor selectie printen

Anoniem
2014-10-29T11:49:57+00:00

Hallo

Ik zou graag een in office excel 2013  een macro willen maken waarmee ik (door middel van een knop) een vaste selectie van een pagina kan uitprinten.

Ik heb de knop al maar de juiste code is het probleem...

Ik zou graag van A1 tot en met AE58 willen uitprinten

alle help is meegenomen.

gr.

Hans

dit is de code die ik nu gebruik maar als ik op de knop druk krijg ik een lege pagina geprint.

Private Sub CommandButton2_Click()

    Selection.PrintOut Copies:=1, Collate:=True

    Range("A1:AE58").Select

End Sub

Microsoft 365 en Office | Excel | Voor thuisgebruik | Windows

Vergrendelde vraag. Deze vraag is gemigreerd vanuit de Microsoft Ondersteuning-community. U kunt stemmen of het nuttig is, maar u kunt geen opmerkingen of antwoorden toevoegen of de vraag volgen. Gebruikersprofielen voor gemigreerde vragen worden geanonimiseerd om de privacy te beschermen.

0 opmerkingen

1 antwoord

Sorteren op: Meest nuttig
Meest nuttig Nieuwste Oudste
  1. Anoniem
    2014-10-29T13:47:17+00:00

    Hans dat zou met de volgende code kunnen.

    Deze zet je in de module van het betreffende werkblad:

    Private Sub CommandButton2_Click()

        Dim strPA As String

        'zet het huidige afdrukbereik in een string

        strPA = Me.PageSetup.PrintArea

        'stel een afdrukbereik in

        Me.PageSetup.PrintArea = "A1:AE58"

        'drukt het ingestelde afdrukbereik af

        Me.PrintOut

        'zet het afdrukbereik terug naar voor het uitvoeren van de macro

        Me.PageSetup.PrintArea = strPA

     End Sub

    Jan

    2 personen vonden dit antwoord nuttig.
    0 opmerkingen