Help!

Problemen met uw pc? De vrijwilligers van Oplossing.be zoeken gratis met u mee! 8)

Meer weten over Oplossing.be?

Hoe stel ik een vraag?

Hulp bij posten

Recent

Auteur Topic: Printen zowel staand als liggend uit 1 werkblad  (gelezen 4898 keer)

0 leden en 1 gast bekijken dit topic.

Offline Dotchiejack

  • Excel-Expert
  • Ervaren lid
  • *****
  • Berichten: 349
  • Geslacht: Man
  • Oplossing.be
Re: Printen in zowel Staand als liggend vanuit 1 werkblad
« Reactie #15 Gepost op: 09 januari 2019, 16:11:12 »
Ik vrees dat je het tweede bereik op een apart blad zal moeten zetten om uw doel te bereiken.
Groet, Philiep

Facebook is als gearresteerd worden: alles wat je zegt kan en zal tegen je gebruikt worden...
Soms merken mensen de dingen die we voor hen doen niet op, tot we er mee stoppen.

Offline SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 17.420
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re: Printen in zowel Staand als liggend vanuit 1 werkblad
« Reactie #16 Gepost op: 09 januari 2019, 16:27:27 »
Hallo Dotchiejack,

Ik vrees dat je het tweede bereik op een apart blad zal moeten zetten om uw doel te bereiken.

Dat dacht ik ook al... als beste oplossing.
Maar ik vrees voor grote problemen, omdat, als je van staand naar liggend gaat, de 2 de range verdeeld ligt over 2 pagina's.
Ik denk dat voor de 2 de range, je het hele Range zal moeten kopiëren en Plakken (Als WAARDEN) naar een Extra werkblad, en naar A1: tot wat nodig is Verwijzen. Dan kan je dat blad en die range opgeven in je tweede macro.

Niet gemakkelijk helpen als je niet zelf kan testen op zo een printer, hé.

:) SoftAid :)             
« Laatst bewerkt op: 09 januari 2019, 16:46:31 door SoftAid »
Wegens veelvuldig melden van dubbelposten, het posten op verschillende help-fora van dezelfde vraag, zijn de gedragsregels op dit forum aangepast. Dubbelposten dient in de toekomst op voorhand gemeld te worden, met een melding en een link naar het topic op de andere site. De helpers wensen een weinig respect voor de inspanningen die ze doen om mensen te helpen. Je doet jezelf ook een plezier. Door je dubbelposten te melden wordt je vraag op meerdere fora beantwoord.

Offline Dotchiejack

  • Excel-Expert
  • Ervaren lid
  • *****
  • Berichten: 349
  • Geslacht: Man
  • Oplossing.be
Re: Printen in zowel Staand als liggend vanuit 1 werkblad
« Reactie #17 Gepost op: 09 januari 2019, 16:43:58 »
Citaat
Niet gemakkelijk helpen als je niet zelf kan testen op zo een printer, hé.
Dat klopt als een zwerende vinger.
Groet, Philiep

Facebook is als gearresteerd worden: alles wat je zegt kan en zal tegen je gebruikt worden...
Soms merken mensen de dingen die we voor hen doen niet op, tot we er mee stoppen.

Offline Josc1965

  • Volledig lid
  • **
  • Berichten: 231
  • Geslacht: Man
  • Je leert echt wat op "Oplossing.be"
    • Taxi Schurink
Re: Printen in zowel Staand als liggend vanuit 1 werkblad
« Reactie #18 Gepost op: 10 januari 2019, 09:59:06 »
Ik heb er even een nachtje over geslapen, en kom tot de conclusie, dat wat ik wil niet eenvoudig te realiseren is, of eenvoudig niet te realiseren zal zijn. ;)

SoftAid en Dotchiejack, dank voor jullie bemoeienis met dit vraagstuk maar ik ga genoegen nemen met het gegeven dat het niet kan omdat werken met 2 bladen voor mij qua overzicht niet heel handig is.

Dank voor de input en tot de volgende uitdaging..
Johan
Windows 10 Home   NLD 64bit
Intel(R) Core(TM) i7-7700HQ CPU @ 2.80GHz 2808
838F
Intel(R) HD Graphics 630 1024MB -
NVIDIA Virtual Audio Device (Wave Extensible) (WDM)
C:\ NTFS 118,01GB 44,78GB 8.079MB
AV: Avast Antivirus
FW: Windows Firewal Enabled: True
Office 2016

Offline Dotchiejack

  • Excel-Expert
  • Ervaren lid
  • *****
  • Berichten: 349
  • Geslacht: Man
  • Oplossing.be
Re: Printen in zowel Staand als liggend vanuit 1 werkblad
« Reactie #19 Gepost op: 10 januari 2019, 10:15:27 »
Waar een nachtje slapen al niet goed voor is. :)
Dank voor de terugkoppeling. :thumbsup:
Suc6
Groet, Philiep

Facebook is als gearresteerd worden: alles wat je zegt kan en zal tegen je gebruikt worden...
Soms merken mensen de dingen die we voor hen doen niet op, tot we er mee stoppen.

Offline SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 17.420
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re: Printen in zowel Staand als liggend vanuit 1 werkblad
« Reactie #20 Gepost op: 10 januari 2019, 12:29:12 »
hallo josc1965,

Mag ik er nog even op terug komen?

Stel dat je een extra werkblad (Extra!) toevoegt, dat achterna altijd verborgen is.
Je printer staat automatisch om dubbelzijdig af te drukken.
Kan je dan volgende code niet verwerken in je huidige?

    Sub Macro2()
    ' Eerste Range afdrukken. Dan, voor de tweede range:
   
    Sheets("Week overzichten").Range("K1:W36").Copy
    Sheets("Extra").Range("A1:K36").Select
    Selection.PasteSpecial Paste:=xlPasteValues
    Sheets("Week overzichten").Select
 
    ' Verder afdruk-instructies   
End Sub

:) SoftAid :)             

Wegens veelvuldig melden van dubbelposten, het posten op verschillende help-fora van dezelfde vraag, zijn de gedragsregels op dit forum aangepast. Dubbelposten dient in de toekomst op voorhand gemeld te worden, met een melding en een link naar het topic op de andere site. De helpers wensen een weinig respect voor de inspanningen die ze doen om mensen te helpen. Je doet jezelf ook een plezier. Door je dubbelposten te melden wordt je vraag op meerdere fora beantwoord.

Offline Josc1965

  • Volledig lid
  • **
  • Berichten: 231
  • Geslacht: Man
  • Je leert echt wat op "Oplossing.be"
    • Taxi Schurink
Re: Printen in zowel Staand als liggend vanuit 1 werkblad
« Reactie #21 Gepost op: 10 januari 2019, 13:42:31 »
Hoi Softaid,

Het was ook voor mij niet geheel bevredigend dat ik deze uitdaging niet tot ene goed eind heb kunnen brengen, en mede door jouw eerdere inbreng over een extra blad ben ik toch maar even gaan zitten broeden op hoe ik dat nu wilde zien te klaren. dus ik heb een extra blad aangemaakt die de gegevens op de achterkant moet gaan bevatten in Landscape, maar ik wilde dat blad eigenlijk niet zien. dus nu is de situatie als volgt:

de gegevens worden realtime overgenomen op "Blad1" (had geen zin om het blad een naam te geven, misschien komt het nog) Alle printerinstellingen heb ik ingegeven alsmede de printarea. Dit heb ik ook gedaan voor het voorblad en ik heb "Blad1" verborgen. Vervolgens een macro opgenomen, deze van alle overbodige regels ontdaan, denk ik, en het werkt :D

Sub Printen()
    Sheets("Blad1").Visible = True
    Sheets(Array("Week overzichten", "Blad1")).Select
    ActiveWindow.SelectedSheets.PrintPreview '.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
    Sheets("Blad1").Visible = False
End Sub


Nou geloof ik best dat het nog korter kan, maar ik ben hier al heel tevreden mee.
« Laatst bewerkt op: 10 januari 2019, 13:51:27 door Josc1965 »
Johan
Windows 10 Home   NLD 64bit
Intel(R) Core(TM) i7-7700HQ CPU @ 2.80GHz 2808
838F
Intel(R) HD Graphics 630 1024MB -
NVIDIA Virtual Audio Device (Wave Extensible) (WDM)
C:\ NTFS 118,01GB 44,78GB 8.079MB
AV: Avast Antivirus
FW: Windows Firewal Enabled: True
Office 2016

Offline SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 17.420
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re: Printen in zowel Staand als liggend vanuit 1 werkblad
« Reactie #22 Gepost op: 10 januari 2019, 14:24:33 »
en het werkt :D
Fijn  8) :thumbsup: :thumbsup:
Nou geloof ik best dat het nog korter kan, maar ik ben hier al heel tevreden mee.
Als het voor jou op deze manier leesbaar en bewerkbaar is, dan is het prima zo...  ;)

Groeten,

:) SoftAid :)             
Wegens veelvuldig melden van dubbelposten, het posten op verschillende help-fora van dezelfde vraag, zijn de gedragsregels op dit forum aangepast. Dubbelposten dient in de toekomst op voorhand gemeld te worden, met een melding en een link naar het topic op de andere site. De helpers wensen een weinig respect voor de inspanningen die ze doen om mensen te helpen. Je doet jezelf ook een plezier. Door je dubbelposten te melden wordt je vraag op meerdere fora beantwoord.

Offline Dotchiejack

  • Excel-Expert
  • Ervaren lid
  • *****
  • Berichten: 349
  • Geslacht: Man
  • Oplossing.be
Re: Printen in zowel Staand als liggend vanuit 1 werkblad
« Reactie #23 Gepost op: 10 januari 2019, 15:57:12 »
Citaat
en het werkt :D
Mooi zo!
Nog een tip.
Vermijdt het gebruik van Select en activate, het vertraagt je code big time en het is zelden nodig.
Sub Printen1()
Sheets("Blad1").Visible = True
    Sheets(Array("Week overzichten", "Blad1")).PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
Sheets("Blad1").Visible = False
End Sub
Groet, Philiep

Facebook is als gearresteerd worden: alles wat je zegt kan en zal tegen je gebruikt worden...
Soms merken mensen de dingen die we voor hen doen niet op, tot we er mee stoppen.

Offline Josc1965

  • Volledig lid
  • **
  • Berichten: 231
  • Geslacht: Man
  • Je leert echt wat op "Oplossing.be"
    • Taxi Schurink
Re: Printen in zowel Staand als liggend vanuit 1 werkblad
« Reactie #24 Gepost op: 11 januari 2019, 08:25:46 »
Wederom dank Dotchiejack,

Citaat
Nog een tip.
Vermijdt het gebruik van Select en activate, het vertraagt je code big time en het is zelden nodig.

Ja daar ben ik mij geheel bewust van, had ook veel regels uit de opgenomen macro al verwijderd, wist alleen niet hoe ik die laatste kon elimineren, maar die heb jij mij nu laten zijn. ;) Werkt perfect!!
Johan
Windows 10 Home   NLD 64bit
Intel(R) Core(TM) i7-7700HQ CPU @ 2.80GHz 2808
838F
Intel(R) HD Graphics 630 1024MB -
NVIDIA Virtual Audio Device (Wave Extensible) (WDM)
C:\ NTFS 118,01GB 44,78GB 8.079MB
AV: Avast Antivirus
FW: Windows Firewal Enabled: True
Office 2016

Offline Dotchiejack

  • Excel-Expert
  • Ervaren lid
  • *****
  • Berichten: 349
  • Geslacht: Man
  • Oplossing.be
Re: Printen in zowel Staand als liggend vanuit 1 werkblad
« Reactie #25 Gepost op: 11 januari 2019, 08:43:16 »
Dank voor de terugkoppeling.
Veel printgenot. ;D
Groet, Philiep

Facebook is als gearresteerd worden: alles wat je zegt kan en zal tegen je gebruikt worden...
Soms merken mensen de dingen die we voor hen doen niet op, tot we er mee stoppen.

 


www.combell.com