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

• #31874 Plero aktív tag Delila_1 #31873

  Új Válasz 2016-06-22 16:19:27 #31874

  Ú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

  

  Plero

  aktív tag

  válasz Delila_1 #31873 üzenetére

  Köszönöm a gyors segítséget Delila_1 és Declare fórumtársaknak.

• #31872 Plero aktív tag Delila_1 #31870

  Új Válasz 2016-06-22 16:05:14 #31872

  Ú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

  

  Plero

  aktív tag

  válasz Delila_1 #31870 üzenetére

  Mégis csak működik

  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
Application.Dialogs(xlDialogPrinterSetup).Show '/nyomtato beallitas ablak
ActiveSheet.PageSetup.PrintArea = "$A$1:$K$54" '/nyomtatasi terület
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, Preview:=True, _
IgnorePrintAreas:=False
Range("K3") = Range("K3") + 1
End Sub

  Annyi szépséghibával, hogy nekem fekvő A4 papírt hoz és álló kellene.

  Ezt kellene "Orientation = xlLandscape" módosítani ""Orientation = xlPortrait" ?

• #31869 Plero aktív tag Declare #31868

  Új Válasz 2016-06-22 15:38:24 #31869

  Ú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

  

  Plero

  aktív tag

  válasz Declare #31868 üzenetére

  Megcsináltam a "Nyomtatás" gombot hozzárendeltem ezeket:

  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
Range("K3") = Range("K3") + 1
End Sub

  de nem csinál semmit és hibaüzenet sincs.
  A K3 cellában sem növekszik a szám.

• #31865 Plero aktív tag

  Új Válasz 2016-06-22 14:11:06 #31865

  Ú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

  

  Plero

  aktív tag

  Segítséget szeretnék kérni.
  Kell csinálnom egy excel munkalapot. Ezen lennie kell egy nyomtatás gombnak. Ha megnyomják a nyomtatás gombot akkor kinyomtatja a munkalapot a rajta lévő információkkal és a munkalapon egy cellában megnöveli az értéket eggyel. Azaz sorszámot növel.
  Szájbarágósan le tudja nekem ezt írni valaki vagy egy példát mutatni?

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