qaukle

Even hoe ik het heb opgelost: Als je msi gamingschermen hebt zit er aan de achterkant een klein joystickje. Hiermee kan je dus ook een timer (countdown) aanzetten die je dus nergens in je systeem terug kan zien en die je ook niet kan aanklikken. Ben hier achter gekomen omdat een vriend van mij dus ook zulke schermen heeft en dit dus ook een keer heeft gehad. Oftewel met het joystickje kon ik zo weer weghalen.

ik heb het probleem kunnen oplossen, weet niet hoe ik het topic kan verwijderen xD

Hallo, ik was mijn toetsenbord aan het schoonmaken toen deze timer opkwam, hij ligt boven alles en kan er niet op klikken of vinden in mijn taakbeheer (tenminste niet dat ik weet) is er iemand die weet wat dit is en voornamelijk hoe ik er vanaf kom? herstarten van mijn pc had er geen effect op. hoop dat iemand het weet! Lennart

ik ben verder nog niet echt bekend met forums dus neem het mij niet kwalijk als ik iets doe wat blijkbaar niet mag of zo, als ik bij een van bij de een oplossing geboden krijg laat ik dat natuurlijk ook weten op het andere forum met de oplossing erbij zodat zij het ook zouden kunnen bekijken. mijn plan is echt niet om mensen hun tijd te verdoen als je dat soms denkt. ik vindt het zeer jammer dat je er niet mee verder wil maar dan zoek ik het wel op een andere manier uit, volgende keer graag eerst vragen aan iemand waarom hij iets doet en niet direct gaan gokken. is een beetje raar.

mijn vraag stond al lang uit op helpmij.nl heb hem alleen her opent. ik verbreed mijn kansen. had verder nog geen tijd gevonden om nog weer op je te reageren. ik heb die van jou als volgt aangepast: * Sub macro3() Dim p As Integer, q As Integer, x As Integer Dim myname As String, mymap As String p = 1: q = 1: x = 2 On Error Resume Next With Sheets(1) For x = 1 To .OLEObjects.Count If TypeName(.OLEObjects(x).Object) = "CheckBox" Then If .OLEObjects(x).Object.Value = True Then .Range("a" & p & ":j" & p + 49).Copy Sheets(2).Cells(q, 1) q = q + 50 End If End If p = p + 50 Next x End With With Sheets("Blad1").Range("a1:j" & q - 1) .ExportAsFixedFormat Type:=xlTypePDF, Filename:=mymap & "\" & myname & ".pdf" Application.Dialogs(xlDialogPrinterSetup).Show .PrintOut .ClearContents Sheets(1).activare End With End Sub * hierdoor werkt het ook prima, nou krijg ik namelijk alleen de printer select en dat is precies wat ik wou. ik krijg namelijk van de Cutepdf writer ook nog een venster voor locatie en naam. nou snap ik alleen niet hoe je dat hebt gedaan met die checkboxen, wat is daar in aangepast? ik moet het namelijk naar 20 pagina's krijgen. als ik jouw macro in mijn officiële bestand zet werkt het niet, wat moet ik veranderen? bij deze nogmaals het bestand om te zien wat er is veranderd. Leeg bestand.xlsm

dank je wel, alleen niet helemaal wat ik bedoelde met het opslaan. dit hoeft namelijk alleen bij pdf en die raakt nu in de war omdat ik nu twee schermen krijg om op te slaan. 1 keer voor printer select en een na printer select. maar ik kan hier vast wel wat mee.

ik heb in een bestand een selectie waardoor ik met onderstaande macro de geselecteerd pagina's kan printen. * Sub testenpdfprinten() ' ' testenpdfprinten Macro ' Dim ab As Worksheet If Range("r2") = "Onwaar" Then Else Sheets("Certificaat").PrintOut from:=1, To:=1 End If If Range("r3") = "Onwaar" Then Else Sheets("Certificaat").PrintOut from:=2, To:=2 End If If Range("r4") = "Onwaar" Then Else Sheets("Certificaat").PrintOut from:=3, To:=3 End If If Range("r5") = "Onwaar" Then Else Sheets("Certificaat").PrintOut from:=4, To:=4 End If If Range("r6") = "Onwaar" Then Else Sheets("Certificaat").PrintOut from:=5, To:=5 End If If Range("r7") = "Onwaar" Then Else Sheets("Certificaat").PrintOut from:=6, To:=6 End If If Range("r8") = "Onwaar" Then Else Sheets("Certificaat").PrintOut from:=7, To:=7 End If If Range("r9") = "Onwaar" Then Else Sheets("Certificaat").PrintOut from:=8, To:=8 End If If Range("r10") = "Onwaar" Then Else Sheets("Certificaat").PrintOut from:=9, To:=9 End If If Range("r11") = "Onwaar" Then Else Sheets("Certificaat").PrintOut from:=10, To:=10 End If ' End Sub * deze werkte ook prima maar pakt altijd de laatst gebruikte printer en print het per pagina apart. Bij mij is het de bedoeling dat hij naar pdf opslaan venster gaat zodat ik hem met de juiste naam op de juist plek kan opslaan. als ik nu eerst de 'CutePDF Writer' selecteer dan krijg ik per pagina een pdf. weet iemand hoe ik dit moet aanpakken. Bij voorbaat dank. Leeg bestand met printfunctie.xlsm