Új hozzászólás Aktív témák

• #52774 föccer nagyúr Win-T #52773

  Új Válasz 2024-06-03 12:01:45 #52774

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  föccer

  nagyúr

  válasz Win-T #52773 üzenetére

  Seged munkalap igy nézzen ki.

  

  Mentst a munkafüzetet xlsm-be, makróbarátként. Fejlesztőeszközök menüből adj hozzá egy sima gombot. Alt+F11-el nyisd meg a VBA editort. Jobb klikk a fájl alatt az object-en, insert modul. A megjelent Module1-en dupla klikk, majd a lenti kódot szúrd be.

  A beillesztett gombon jobb klikk, makró hozzá rendelése és válaszd ki a megírt Nevek_kitoltese makrót, majd futtasd.

  Ha minden jól megy, akkor a fájl mellé lenyomja pdf-ben az összes formanyomtatványt úgy, hogy a fájl nevébe beteszi a nevet. Nem lehet 2 azonos név.

  

  Sub Nevek_kitoltese()
Dim i As Integer
Dim Answer
Dim Fajl_neve As String
Dim Futvonal As String
Dim Nyomtato As String
MsgBox "Kérlek válaszd ki a pdf nyomtatót"
  Application.Dialogs(xlDialogPrinterSetup).Show
  Nyomtato = Application.ActivePrinter
  MsgBox "Nyomtató beállítva: " & Nyomtato
    
For i = 2 To Sheets("Seged").Range("F2").Value
  Sheets("16-32").Range("X2").Value = Sheets("Seged").Cells(i, 1).Value
  Sheets("16-32").Range("X2").Calculate
  Answer = MsgBox("Mehet a pdf generálása?", vbQuestion + vbYesNo + vbDefaultButton2, "Biztos?")
  If Answer = vbYes Then
    Fajl_neve = ActiveWorkbook.Path & "/" & Sheets("Seged").Cells(i, 1).Value & ".pdf"
    Sheets("16-32").PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False, ActivePrinter:=Nyomtato, PrintToFile:=True, PrToFileName:=Fajl_neve
  Else
    MsgBox "Nyomtatás megszakítva..."
    Exit Sub
  End If
Next
End Sub

Új hozzászólás Aktív témák