Printen useform in landscape formaat

Status
Niet open voor verdere reacties.
edmoor,
sorry voor late reactie maar andere werkzaamheden gaan ook door.
Tweede knopje geeft inderdaad in E12, Win 64
 
Hier gaan de werkzaamheden gelukkig ook door ;)
Maar als die inderdaad Win64 terug geeft dan zou ik zo niet weten wat nog te doen aan de foutmelding die je krijgt. Het document met dat extra knopje werkt hier zonder probleem in zowel Office 32Bit als Office 64Bit.
 
edmoor,
Vreemd dat het bij jou wel lukt met Office 64bit.
Ik zal morgen nog eens verder zoeken. In ieder geval dank voor je inspanning!
 
Prima. Mocht je de oorzaak vinden dan hoor ik dat ook graag en leren we beiden wat :)
 
edmoor,
Na toch nog wat googlen en aanpassen van wat we al hadden heb ik een oplossing gevonden!
Zij bijgevoegde bijlage.

Toch nog een vraag waarop jij misschien nog een oplossing weet.
Ik maak het liefst gebruik van Option Explicit waarbij je gedwongen wordt om alles te declareren.
Laat ik dit aan dat geeft hij een compileerfout bij: VK_LMENU met de melding dat een variabele niet is gedefinieerd.
Weet jij hoe je deze variabelen kunt definiëren zodat ik toch gebruik kan maken van Option Explicit?
 

Bijlagen

  • Printen useform in landscape.xlsm
    21,7 KB · Weergaven: 48
Die VK_LMENU mag je wijzigen in VK_MENU.
Doe tevens deze er bij: Private Const KEYEVENTF_EXTENDEDKEY = &H1
Wijzig tevens VK_KEYUP in KEYEVENTF_KEYUP
 
Laatst bewerkt:
Wijziging toegepast.
Echter nu bij VK_KEYUP een melding van variabele niet gedefinieerd.
 
sory ik reageer te snel....
nog even testen
 
Het is ook wat verwarrend zoals ik het schreef. Dit zou het moeten zijn:
Code: 
Private Const KEYEVENTF_KEYUP = &H2
Private Const KEYEVENTF_EXTENDEDKEY = &H1
Private Const VK_SNAPSHOT = &H2C
Private Const VK_MENU = &H12

Private Sub CommandButton1_Click()

    Application.ScreenUpdating = False
    
    DoEvents
    keybd_event VK_MENU, 0, KEYEVENTF_EXTENDEDKEY, 0
    keybd_event VK_SNAPSHOT, 1, 0, 0         'Print Screen key down
    keybd_event VK_SNAPSHOT, 1, KEYEVENTF_KEYUP, 0  'Print key Up - Screenshot to Clipboard
    keybd_event VK_MENU, 0, KEYEVENTF_EXTENDEDKEY + KEYEVENTF_KEYUP, 0

Dat is echter anders dan zoals het bij mij goed werkt en ik je als laatste stuurde.
 
Laatst bewerkt:
edmoor,
Waarom jou bestand niet werkte en deze wel, is me nog niet duidelijk maar deze werkt in ieder geval zoals gewenst en kan ik gebruiken voor mijn toepassing!
Bedoel je met je opmerking dat deze oplossing niet bij jou werkt?

Nogmaals bedankt.
gst
 
Of jouw code bij mij ook werkt weet ik zo niet. Ik kan momenteel ook niet bij die VM met de Office 64 installatie. Maar als het nu voor jou wel werkt is het prima :)
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan