Hirdetés
Legfrissebb anyagok
PROHARDVER! témák
Mobilarena témák
IT café témák
-
PROHARDVER!
PROHARDVER!
Új hozzászólás Aktív témák
-
Kipróbáltam működik, ez így jobb egy fokkal mert nem fix fájnevet használ
Public myappid As String
Sub PDFbolMasolo()
myappid = ActiveWindow.Caption
Dim AdobeReader As String
Dim StartAdobe
AdobeReader = "c:\Program Files (x86)\Adobe\Acrobat Reader DC\Reader\AcroRd32.exe"
pdffajl = "C:\pdf\test.pdf"
StartAdobe = Shell("" & AdobeReader & " " & pdffajl & "", 1)
Application.OnTime Now + TimeValue("00:00:02"), "PDFmasolas"
End Sub
Private Sub PDFmasolas()
SendKeys ("^a")
SendKeys ("^c")
Application.OnTime Now + TimeValue("00:00:2"), "PDFbeillesztes"
End Sub
Private Sub PDFbeillesztes()
AppActivate myappid
Range("A1").Activate
SendKeys ("^v")
End Sub
Új hozzászólás Aktív témák
Topikgazda
Fferi50Aktív témák
- iPhone topik
- Yettel topik
- Milyen széket vegyek?
- Milyen egeret válasszak?
- Samsung kuponkunyeráló
- Luck Dragon: Asszociációs játék. :)
- Szeged és környéke adok-veszek-beszélgetek
- PROHARDVER! feedback: bugok, problémák, ötletek
- LG LCD és LED TV-k
- Android Auto és Carplay utólag? A Carpodgo Mini kicsi és olcsóbb, mint a nagyok
- További aktív témák...
Új fizetett hirdetések
Üzleti előfizetők hirdetései
- GYÖNYÖRŰ iPhone XS Max 64GB Silver -2 ÉV GARANCIA - Kártyafüggetlen, MS5280
- Audi A6 C5 Multimedia - 1/32GB / 12 hó jótállás
- M4 iMac 2021 24" - 16GB RAM, 512 GB SSD 27% ÁFÁS
- Samsung Galaxy S22 Ultra / 12/256GB / Kártyafüggetlen / 12 Hó Garancia
- Dobozos ÚJ Lenovo Legion 5 2.5K OLED i7-13650HX 32gb ddr5 1 TB RTX 5070 Garancia
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest