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

• #31880 Delila_1 veterán Plero #31874

  Új Válasz 2016-06-23 06:48:48 #31880

  Ú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

  

  Delila_1

  veterán

  válasz Plero #31874 üzenetére

  Részemről szívesen.

• #31873 Delila_1 veterán Plero #31872

  Új Válasz 2016-06-22 16:17:02 #31873

  Ú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

  

  Delila_1

  veterán

  válasz Plero #31872 üzenetére

  Igen, az orientáció xlPortrait legyen.

• #31870 Delila_1 veterán Plero #31869

  Új Válasz 2016-06-22 15:40:15 #31870

  Ú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

  

  Delila_1

  veterán

  válasz Plero #31869 üzenetére

  Gomb a gyorselérési eszköztárra

  Vigyázz, más lesz a nyomtatási területed, mint a makróban.

• #31868 Declare őstag Plero #31865

  Új Válasz 2016-06-22 15:05:03 #31868

  Ú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

  

  Declare

  őstag

  válasz Plero #31865 üzenetére

  Ahogy Delila_1 is irta, en is igy oldottam meg hasonlo problemat, ami Neked van

  Makro rögzitese gombbal szepen meg lehet csinalni.

  Nekem van egy ilyen gomb ( nyomtato valasztas)

  Sub Nyomtato valasztas()
Application.Dialogs(xlDialogPrinterSetup).Show
End Sub

  A nyomtatas gomb meg igy nez ki nalam (nyilvan a nyomtatasi terület, nalad mas lesz).

  Sub Nyomtatas()

ActiveWorkbook.RefreshAll 'Frissiti az excel munkafüzetet /kihagyhato/

With ActiveSheet.PageSetup '/lap elrendezes/
.Orientation = xlLandscape
.CenterHorizontally = True
.CenterVertically = False
.PaperSize = xlPaperA4
End With

With ActiveSheet.PageSetup '/ egy lapra illeszti a nyomtatast + a lablecbe beteszi a lapszamot
.FitToPagesWide = 1
.RightFooter = "Seite &P/&N"
End With

Application.Dialogs(xlDialogPrinterSetup).Show '/nyomtato beallitas ablak

ActiveSheet.PageSetup.PrintArea = "$AU$1:$BI$22" '/nyomtatasi terület

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, Preview:=True, _
IgnorePrintAreas:=False

End Sub

  Nezd meg a makro rögzitest, meg nezd meg ami nekem van, szerintem talalsz benne hasznos dolgokat a sajat problemadhoz is

• #31866 Delila_1 veterán Plero #31865

  Új Válasz 2016-06-22 14:21:31 #31866

  Ú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

  

  Delila_1

  veterán

  válasz Plero #31865 üzenetére

  Rögzítesz egy makrót, amiben az Exel megfelelő ikonjával indítasz egy nyomtatást.
  Ehhez annyit teszel hozzá az End Sub fölé, hogy Range("X1")= Range("X1")+1
  A makró a nyomtatás után az X1 cella értékét növeli minden nyomtatás után 1-gyel, mindig azt mutatja, hányszor volt kinyomtatva a lap tartalma.

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